2021年5月8日土曜日

LibreOfficeBasicの配列追加について

あまプロではLibreOfficeBasicを使ってマクロを作る事が有ります。
LibreOfficeBasicの配列追加で少し嵌まったんであメログ。

LibreOfficeBasicで配列を追加するにはReDim Preserveを使います。
例えば配列の末尾に一つ追加するのはこちら。

Sub test
    Dim stringArray( 0) As String
    stringArray( 0) = "文字列0"
    Redim Preserve stringArray( Ubound( stringArray) + 1)
    stringArray( 1) = "文字列1"
    
    Msgbox stringArray( 0) &" "& stringArray( 1)
End Sub
↑を実行するとこうなります。

意図した通りです。

なんですが、Functionの戻り値で配列を受け取る時は要注意です。
String型なんで、配列の戻り値もStringにすんのかなと考え

Function addArray( stringArray As String) As String
    Redim Preserve stringArray( Ubound( stringArray) + 1)
    addArray = stringArray
End Function

Sub test
    Dim stringArray( 0) As String
    stringArray( 0) = "文字列0"
    stringArray = addArray( stringArray)
    stringArray( 1) = "文字列1"
    
    Msgbox stringArray( 0) &" "& stringArray( 1)
End Sub
↑を実行してみると

BASICランタイムエラー！オブジェクト変数は設定できていません。

実行エラーになります。
ほなVariant型にすんのかなと考え

Function addArray( stringArray As String) As Variant
    Redim Preserve stringArray( Ubound( stringArray) + 1)
    addArray = stringArray
End Function

Sub test
    Dim stringArray( 0) As Variant
    stringArray( 0) = "文字列0"
    stringArray = addArray( stringArray)
    stringArray( 1) = "文字列1"
    
    Msgbox stringArray( 0) &" "& stringArray( 1)
End Sub

↑を実行しても同じく

BASICランタイムエラー！オブジェクト変数は設定できていません。

実行エラー…。
色々試した挙げ句VariantをStringで受け取ると良ぇ様です。

Function addArray( stringArray As String) As Variant
    ReDim Preserve stringArray( Ubound( stringArray) + 1)
    addArray = stringArray
End Function

Sub test
    Dim stringArray( 0) As String
    stringArray( 0) = "文字列0"
    stringArray = addArray( stringArray)
    stringArray( 1) = "文字列1"
    
    Msgbox stringArray( 0) &" "& stringArray( 1)
End Sub

↑を実行すると

意図した通りになりました。
でも、VariantをVariantで受け取っても動く場合が有るんすよね…良ぉ解らん。

マクロ本体はGithubで公開しています。

環境はバージョン: 6.4.7.2　Build ID: 1:6.4.7-0ubuntu0.20.04.1です。

投稿者 時刻: 0 件のコメント:
場所: 日本、兵庫県尼崎市

2021年1月30日土曜日

Dell Latitude E6320にUbuntu 20.04 LTSをインストールするとwi-fiに接続できないについて

 あまプロでは生徒のノートパソコンにUbuntuを使っています。
先日、Ubuntuのネット接続て嵌ったのてあメログ。

生徒用に買うたDell Latitude E6320にUbuntu 20.04.1 LTSをインストールしました。
インストール完了後に再起動を行って、再起動後まではwi-fiがつながっていました。
しかし、その後の更新でシステムエラーが発生し、その再起動後にwi-fiがつながらなくなってしまいました…。
wi-fiの物理スイッチをOn/Offしても変化なし、再起動しても変化なし…。

色々調べてみると、無線装置のbcmwl packageにバグが有るらしく、既にバグ報告が登録されてました。
他の方の投稿で、新しい版のbcmwl packageをインストールすると解決したというのを見掛けたので、試してみると無事に再起動後にwi-fiに繋がりました…。

良かった良かった。

投稿者 時刻: 0 件のコメント:
場所: 日本、兵庫県尼崎市

2021年1月22日金曜日

FujitsuパソコンにUbuntuをインストールについて

 あまプロでは生徒のノートパソコンのOSにUbuntuを使っています。

先日、Ubuntuのインストールで嵌まったんであメログ。

先ず、ここからisoファイルをダウンロードして、ブータブルUSBを作成します。

 次にBIOSで起動デバイスの優先順位を選択し、USBメモリを上位にします。（ここは一般的なBIOSと同じ）

次にレガシーUSBサポートを有効にします（ここも一般的なBIOSと同じ）
次にセキュリティの管理者用パスワードを設定して、取り外し可能なディスクからの起動を「常に可能」にする（ここがFujitsu特有）

上記三点の設定を行わないと、ＵＳＢから起動してくれませんでした…。

Ubuntuのインストールが終われば、上記設定は元に戻しても構いません。

投稿者 時刻: 0 件のコメント:
場所: 日本、兵庫県尼崎市

2020年11月26日木曜日

ワードプレスのページネーションについて

 あまプロではWrodpressでウェブサイトを構築する事が有ります。
ワードプレスで少し躓いたんであメログ。

 ワードプレスでは投稿を一定数のページ単位で表示するページネーションという機能が備わっています。
公式の基本的な例にPHPのプログラムが載っていて、それをコピペしたらページネーションのHTMLが生成される
筈なんですが、何故か私の環境ではURLのクエリ部分が
https://amahiroba.info/?page_id=721&category=ボランティア募集#038;category=ボランティア募集&paged=2
の様にcategoryが繰り返されて正しいURLになりませんでした…。

原因を調べてみるとesc_url( get_pagenum_link( $big))でURLをエスケープしている箇所が有るんですが、そこにマルチバイト文字列（日本語）等#038;が入っているとエスケープ出来ないそうです。
なので、エスケープ出来る様にhtml_entity_decode( get_pagenum_link( $big))に改修すると

正しいURLが生成されました。
https://amahiroba.info/?page_id=721&category=ボランティア募集&paged=2

投稿者 時刻: 0 件のコメント:
場所: 日本、兵庫県尼崎市

2020年7月18日土曜日

Ubuntuの追加したユーザでの日本語入力について

あまプロではUbuntuを使ってプログラミング教室を行っています。
Ubuntuの日本語入力で躓いたのであメログ。

Ubuntuのインストール時に入力言語の設定を行います。
ここで日本語を設定すると、キーボードに日本語レイアウトを選択して、全角半角の切り替えが出来る様になります。

通常はこれだけで日本語が行えるんですが、新たなユーザを追加した場合にハマりポイントが有ります。
 インストール時に日本語入力の設定を行っていれば、正しく日本語入力出来て、
 地域と言語設定もこの様になってます。
キーボードレイアウトも日本語キーボードになってます。
なんですが、後からユーザを追加した場合は、地域と言語設定が
 この様になって、キーボードレイアウトも
英語キーボードになってまうんですね…。
なもんで、新たにユーザを追加した場合は、一度入力ソースを全部削除して
日本語を追加します。
これで日本語キーボードレイアウトになります。
次に日本語（Ｍｏｚｃ）を追加します。

これでログアウトしてログインすると、無事に日本語入力が出来る様になります。
投稿者 時刻: 0 件のコメント:
場所: 日本、兵庫県尼崎市

通行止めするらしい


投稿者 時刻: 0 件のコメント:

2020年6月2日火曜日

要素のクリアボタンについて

あまプロではウェブシステムの保守を行う事があります。

先日、ChromiumのUIが変更されたのであメログ。

HTML5の<input type="time">タグをChromiumで開くと🅧のクリアボタンが表示されていたのが、最近のアップデートで時計アイコンに変わっていた。
ワンクリックで時間をクリアできなくなり不便という要望が出たので、何とか回避してみました。

inputの隣に×アイコンを追加して、それがクリックされたらJavaScriptでinputの値を空にしています。
ESCキー押下でもクリアする様にしてます。
<!DOCTYPE html>
<html lang="ja">
    <head>
        <meta http-equiv="content-type" content="text/html; charset=utf-8" />
        <title>てすと</title>
        <style type="text/css"><!--
            .clear { color: gray; position: relative; left: -0.4em;}
            @-moz-document url-prefix() {
              .clear {
                display: none;
              }
            }
        --></style>
    </head>
    <body>
        <input type="time" id="time0" name="time0">
        <span id="clear0" class="clear">&#127335;</span>
        <br>
        <input type="time" id="time1" name="time1">
        <span id="clear1" class="clear">&#127335;</span>

        <script type="text/javascript"><!--
            function downEscape() {
                if( event.key == 'Escape') this.value = '';
            }
            function clickEscape() {
                this.previousElementSibling.value = '';
            }
            function changePointerDefault() {
                this.style.cursor = 'default';
            }
            document.getElementById( 'time0').addEventListener(
                'keydown', downEscape, false
            );
            document.getElementById( 'clear0').addEventListener(
                'click', clickEscape, false
            );
            document.getElementById( 'clear0').addEventListener(
                'mouseover', changePointerDefault, false
            );
            document.getElementById( 'time1').addEventListener(
                'keydown', downEscape, false
            );
            document.getElementById( 'clear1').addEventListener(
                'click', clickEscape, false
            );
            document.getElementById( 'clear1').addEventListener(
                'mouseover', changePointerDefault, false
            );
        --></script>
    </body>
</html>

表示するとこんな感じ。
mozilla系のfirefoxでは今でもクリアボタンが表示されてるので、追加クリアボタンは非表示にしてます。

こんな感じ。

ワンライナーでHTMLとCSSとJavaScriptをごちゃまぜにするのがお好みな方は

 <!DOCTYPE html>
<html lang="ja">
    <head>
        <meta http-equiv="content-type" content="text/html; charset=utf-8" />
        <title>てすと</title>
    </head>
    <body>
        <input type="time" id="time0" name="time0" onKeyDown="if( event.key == 'Escape') this.value = '';">
        <span id="clear0" class="clear" style="color: gray; position: relative; left: -0.4em;" onClick="this.previousElementSibling.value = '';" onMouseover="this.style.cursor = 'default';">&#127335;</span>
        <br>
        <input type="time" id="time1" name="time1" onKeyDown="if( event.key == 'Escape') this.value = '';">
        <span id="clear1" class="clear" style="color: gray; position: relative; left: -0.4em;" onClick="this.previousElementSibling.value = '';" onMouseover="this.style.cursor = 'default';">&#127335;</span>
    </body>
</html>
こちらをどうぞ。
投稿者 時刻: 0 件のコメント:
場所: 日本、兵庫県尼崎市
登録: 投稿 (Atom)