mieki256's diary

2024/02/14(水) [n年前の日記]

#1 [basic] FreeBASICでsplit()を使いたい

#1 [basic] FreeBASICでsplit()を使いたい

#2 [digital] 親父さんがワイヤレススピーカーを購入

#1 [nitijyou][windows] 某所に行ってきた

#2 [windows] EPSON Scanが起動しなかったので確認した事項をメモ

#1 [pc] スマホ同期管理アプリが気になったけどダメダメだった

#2 [nitijyou] 某所に行ってきた

#1 [raspberrypi] 手持ちの Raspberry Pi Zero Wをメンテナンス

#2 [zatta] ダイソーで買ってきたタッチライトを設置

#3 [nitijyou] 犬が逃げた

#1 [pc] マウスの自作って本当にできないのだろうか

#2 [pc] マウス以外のポインティングデバイスが気になる

#3 [pc] マウスホイールを代替する何かって無いのかな

#4 [pc] スマホ用コントローラをPCで使えないのかな

#1 [anime] 「NANA」最終回を視聴

#2 [anime] 「ケムリクサ」迷子の回を視聴

#1 [ruby][dxruby] DXOpalを試用してみようと思ったらインストールでハマった

#2 [dxruby][ruby] DXOpalで画像のアニメーション

#1 [nitijyou] 歯医者に行ってきた

#2 [cg_tools][natron] Natronをインストール

#1 [prog][dxruby] スプライン曲線について調べてたり

#2 [windows] Windows10にアップグレードしたらWebサーバが使えなくなってしまった

#3 [anime][neta] ファフナーの、遠い親戚、おそ松さん

#4 [nitijyou] 体調は少し良くなってきた

#1 [dxruby] 雑魚敵の仮画像を作成中

#2 [cg_tools] GIMPのレイヤー名に連番をつけるスクリプトを書いた

#3 [cg_tools] GIMPのScript-fuコンソール上で実験する時のアレコレをメモ

#1 [unity] unitypackage形式でエクスポートするとレイヤー設定が消滅してしまう

#1 [nitijyou] 買い物に

#2 [anime] 攻殻機動隊SACが無料配信されてたらしい

#1 [papercraft] のり付け無しのペーパークラフトを試作

#2 [pc] PDFをpngに変換しようとして悩む

#3 [zatta] どんな道具を使って描いてもいいよなあ

#1 [nitijyou] 朝起きて作業

#1 [comic] 「EXIT」4～11巻を読み返し

#1 [anime] ゴーオンジャー、ライダーキバ、プリキュア555、最終回鑑賞

#2 [pc][linux] Windowsパーティションにwubiを使ってUbuntu Linuxを試しにインストールしてみたり

#1 [windows] IE6からIE7にアップグレードした

#1 [linux][ubuntu] _Linux Tips「複数のユーザーで共有ディレクトリを使いたい」

#2 [windows][cg_tools] _XPM画像読み込み Susie Plug-in

#9 [ubuntu] _DesktopなLinuxの設定とか FireFoxで"bタグ"を太字で強調させるその2

◎ strtok()で試してみた :

◎ split()では解決しなかった :

◎ split()ぐらい標準でつけてほしい :

◎ strtok()で試してみた :

◎ split()では解決しなかった :

◎ split()ぐらい標準でつけてほしい :

◎ サインイン画面に削除したはずのユーザが表示される問題 :

◎ Windows10の「メール」でYahooメールが利用できない問題 :

◎ EPSON Scanが起動しない問題 :

◎ ドライバ入手先 :

◎ SMB1.0を有効化。 :

◎ EPSON Scanをアンインストール。 :

◎ 再インストール。 :

◎ 「EPSON Scanの設定」を実行。 :

◎ EPSON Scanを起動。 :

◎ 互換性タブで管理者権限を指定 :

◎ FULL.bmpを削除してみる :

◎ レジストリのアクセス権を確認 :

◎ WIAサービスを有効化する :

◎ ファイアウォールを確認 :

◎ イベントビューアーを一応確認 :

◎ 結末。 :

この記事へのツッコミ

◎ Bluetoothリモコン用スクリプトを無効にした。 :

◎ lighttpd の自動起動を無効化。 :

◎ 見かけたページをメモ。 :

◎ 光学式の仕組みもよく分からない。 :

◎ 画像センサで回転を判別できないか。 :

◎ Windows上でインストールできない。 :

◎ 管理者権限でインストールしないといかんらしい。 :

◎ Linux上ではどうかな。 :

◎ DXOpalを試用。 :

◎ 3次スプライン曲線を Ruby + DXRubyで試したり。 :

◎ 別のスプライン曲線を試したり。 :

◎ スプライン曲線では道路の自動生成は難しいかも。 :

◎ キャラデザが一人ってのがおかしい気もする。 :

◎ レイヤーのエクスポート。 :

◎ 他の連番リネームスクリプトもメモ。 :

◎ 実践。 :

この記事へのツッコミ

◎ live2chがエラーを出すのは使用してるスキンの問題だった。 :

◎ マウスホイールによるスクロールがおかしくなる件。 :

◎ IntelliPoint でIE7のタブ移動ショートカットキー Ctrl+Tab を割り当てたいのだが。 :

◎ _Debianでのユーザ管理 :

◎ _ふぉんと！よくわからない :

プログラミング言語の Perl や Ruby や Python には split() というメソッドがある。これを使うと、指定した区切り文字で、文字列を分割して配列にしてくれる。かなり便利。

FreeBASIC でもsplit() を使いたい。しかし、標準では持ってない。どうにかできんのか。いや、自分で書くしかないだろうけど。ということで、そのあたりをググって調べてみた。

環境は Windows10 x64 22H2 + FreeBASIC 1.10.1 32bit。

FreeBASICでsplit()を使いたいという需要はちょくちょくあるようで、公式掲示板でも色々な実装事例が紹介されてた。

_function Split - freebasic.net
_function Split - Page 2 - freebasic.net
_Split String Algorithm for FreeBasic - freebasic.net
_Sugesstion String Split in FB - freebasic.net
_Easy Split Function - freebasic.net
_I need someone to defeat my string splitting algo - freebasic.net

色々なやり方はあるけれど、個人的には、C言語の strtok() を利用して実装してしまうのが簡単そうに見えた。

_C Standard Library Functions - FreeBASIC Wiki Manual | FBWiki
_strtokによるトークンの切り出し・ソフトウェアII
_C/C++にsplit関数はなく、代わりにstrtok関数を使う｜情報科学を学ぶ大学生のブログ
_＜紙＞さんＬｏＧ FreeBASIC 学習：strtok, 文字列を指定文字で分割

ただ、strtok() は、文字列の中で区切り文字が見つかったら、そこに文字列の終端記号である 0 を書き込んで処理をするらしい。なんだか怖い…。元の文字列のあちこちに終端記号が書き込まれて、元文字列がズタズタになりそうな…。

本当に strtok() を使って split() 相当を実装できるのか試してみた。

_strtok_test.bas

#include "crt.bi"

Sub Split(byref text As String, byref delim As String, result() as String)
    var p = strtok(strptr(text), strptr(delim))
    While (p)
        ReDim preserve result(UBound(result) + 1)
        result(UBound(result)) = *p
        p = strtok(NULL, strptr(delim))
    Wend
End Sub

' main

Dim As String text = "this   is   a     test"
Dim words() As String

split(text, " ", words())

Print text
For i As Integer = 0 To UBound(words)
    Print "[" & words(i) & "]"
Next i

Print "    ...success."

fbc strtok_test.bas でコンパイル。実行結果は以下。

> strtok_test.exe
this   is   a     test
[this]
[is]
[a]
[test]
    ...success.

ちゃんと分割できているように見える。区切り文字として扱う空白が連続して入っていても、イイ感じに処理してくれた。

少し解説。FreeBASIC でC言語が持ってる関数を使いたい場合は、#include "crt.bi" を最初のほうで入れておく。

配列の長さ(数？)を可変にしたい時は、ReDim を使う。

ReDim を使う際の注意。ReDim preserve とすれば、それまで格納した値を保持したまま長さを変更してくれるけど、preserve をつけないとそれまで格納した値を全部クリアした状態で配列の長さを変更してしまう。自分、格納した値が全部消えてるから変だなおかしいなと悩んでたら、単に preserve をつけるのを忘れてたという…。

UBound() を使うと、その配列変数の最後の添え字(?)、配列のインデックスの最大値を取得できる。

ひとまず split() を使えばどうにかなるだろうと思ってたけど、ちと考えが甘かった。

例えば、以下のような文字列なら、split() で十分処理できそうなのだけど…。

char id=32   x=250   y=22    width=5     height=5     xoffset=-2    yoffset=21    xadvance=7     page=0  chnl=15

> strtok_test3.exe
char id=32   x=250   y=22    width=5     height=5     xoffset=-2    yoffset=21    xadvance=7     page=0  chnl=15
[char]
[id=32]
[x=250]
[y=22]
[width=5]
[height=5]
[xoffset=-2]
[yoffset=21]
[xadvance=7]
[page=0]
[chnl=15]
    ...success.

以下のような文字列ではよろしくない。

info face="DejaVu Sans" size=24 bold=1 italic=0 charset="ANSI" unicode=0 stretchH=100 smooth=1 aa=4 padding=0,0,0,0 spacing=1,1 outline=2

> strtok_test3.exe
info face="DejaVu Sans" size=24 bold=1 italic=0 charset="ANSI" unicode=0 stretchH=100 smooth=1 aa=4 padding=0,0,0,0 spacing=1,1 outline=2
[info]
[face="DejaVu]
[Sans"]
[size=24]
[bold=1]
[italic=0]
[charset="ANSI"]
[unicode=0]
[stretchH=100]
[smooth=1]
[aa=4]
[padding=0,0,0,0]
[spacing=1,1]
[outline=2]
    ...success.

お判りいただけるだろうか。「face="DejaVu Sans"」と区切ってほしいけれど、「face="DejaVu」と「Sans"」になってしまっている。間に区切り文字の空白があるから当たり前だけど。

こういう事例にも対応できるような処理を書くしかないか…。

思考メモ。

FreeBASICの公式掲示板を眺めてたら、「split()が欲しい。標準でつけてくれ」という要望に対して、「俺なら数行のコードで実現できるぞ。だからそんなもん要らねえ」と言い出した人を見かけた。個人的にかなり呆れてしまった。お前のマウンティングで皆が楽になるルートを潰してんじゃねえよ…みたいな。

こんな処理は各人が毎回独自に実装して用意するより標準で持ってたほうがいいに決まってる。どうして他の言語が組み込みで持ってるのかを考えたら…。Perl や Ruby や Python や Java や JavaScript や Go言語が「split」のたった5文字で済ませてることを、FreeBASIC では毎回実処理コードをどこかに書かなきゃいけないとか、そしてそれを当たり前のこととして利用者全員に強制するとかクソ過ぎる…。そういうところが「塵も積もれば」的に効いてきて最後には無駄に長くてゲンナリするソースばかりが目につくようになってプログラミング言語としての魅力も薄れて誰も触らなくなるわけで…。

既に標準状態で山のような .bi が inc/ の中に入ってるんだから、「文字列処理をしたいならコレを include すると楽だよ。ただし速度は期待するな。もっと速いのが欲しかったらその時は自分で書け」ぐらいの感覚で .bi を一つ追加すれば済む話だろうに。いやまあ、テストがどうとか速度がどうとか言い出して標準ライブラリとして加えることをとにかく面倒臭がってる気配も感じたのでその手の .bi が追加されるのは今後も望み薄かもしれないけれど。

そのあたりを考えてるうちに、Python の pip、Ruby の gem、Perl のCPAN等々はよく考えられているなと思えてきた。「こういうライブラリが必要だな」となったらコマンド一つでライブラリをインストールできてしまう。もし、そういう状況が用意されているなら、標準ライブラリで持たなくてもまあいいかな、とも思えてくる。しかし、FreeBASIC の場合はそういうツールが無いのだから、最初から標準で色々入れておくしかないだろうと思うのだけど。

まあ、今の時代にBASIC言語を名乗るソレにどうこう言ってみても、というところもあるのだけど…。

一発で exe が作れて、しかも処理速度がそこそこ速い点に魅力を感じたから FreeBASIC を触ってみているけれど、フツーは Python あたりを使うよな…。あらゆるOSにPythonが標準でインストールされてたらいいのに…。いや、それはそれでPythonのバージョンの違いで余計なトラブルが起きそう…。

思考メモです。オチは無いです。

2024/02/15追記。安易に「.biを1つ追加すれば」などと書いてしまったけれど。考えてみたらマルチバイト文字列への対応が面倒なのではと思えてきた…。

Prev - 2025/07 - Next