mieki256's diary

2024/02/15(木) [n年前の日記]

#1 [basic] FreeBASICでsplit()を使いたい。その2

#1 [basic] FreeBASICでsplit()を使いたい。その2

#2 [basic] FreeBASICでBMFontを描画したい

#1 [windows] まだEPSON Scanの問題について調べてる

#2 [anime] 「映画大好きポンポさん」を視聴

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

#2 [nitijyou] 犬の水飲み用の容器を探している

#1 [digital] HDDレコーダの調子が悪い

#2 [raspberrypi] Raspberry Pi Zero W をメンテナンス中その2

#1 [anime] 「劇場版天元突破グレンラガン」を視聴

#1 [nitijyou] HDDレコーダに溜まってる番組を消化

#1 [dxruby] DXOpalのWindow.draw_scaleについて動作確認

#2 [anime] 「Re:ゼロから始める異世界生活」最終回を視聴

#1 [cg_tools][natron] 動画合成ソフト Natron の使い方を少しメモ

#2 [nitijou] 親父さんの見舞いに行ってきた

#1 [windows] Windows10上のIISを設定していたり

#2 [windows] Windows10のスタートボタンが使えなくなってしまった

#1 [cg_tools] ImageMagickで減色の実験

#1 [nitijyou] またかなりの雪が積もった

#2 [unity] unitypackageでエクスポートするとレイヤー設定が消えてしまう問題

#3 [unity] テクスチャを修正中

#4 [unity][cg_tools] RGBA4444に変換できるツール

#1 [dtm] SoundCloudのアカウントを取ってみたり

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

#2 [papercraft][neta] 自分の顔写真でペーパークラフト人形を作れないかな

#3 [papercraft] ここ数日ペーパークラフトに関して試行錯誤してたけど

#4 [windows7] Inkscapeが起動しなくなっていた

#5 [cg_tools] GIMP-painter-をインストール。

#1 [cg_tools] Shade12へのバージョンアップを催促するDMが郵送で届いたのだけど

#1 [comic] 「EXIT」をまだ読んでたり

#1 [pc][linux] PenIII 800MHz機にUbuntu Linux 8.04をインストールしたのだけどHDDがとんでもなく遅い

#1 [windows][web] Jane Styleを導入

#2 [cg_tools] 3DCGツール Shade のアップグレード条件がAdobeのソレと同じになるみたいなのだけど

#3 [anime][neta] プリキュア555の2話目を鑑賞

#4 [anime][neta] ジャングル大帝っ娘というネタはどうだろう

#5 [eclipse][windows] eclipse 3.3.1.1が起動しなくて困り果てる

#1 [linux] _複数のファイルの名前をまとめて変更する

#2 [ubuntu] vncserverとicewmをインストール

#3 [ubuntu] gnome の背景画像はどこにあるのだろう

◎ ソース :

◎ split()の実装が気になってきた :

◎ マルチバイト文字列対応は大変そう :

◎ 区切り"文字列"にすると大変 :

◎ ソース :

◎ split()の実装が気になってきた :

◎ マルチバイト文字列対応は大変そう :

◎ 区切り"文字列"にすると大変 :

◎ BMFontについて :

◎ スクリーンショット :

◎ ソース :

◎ パスを決め打ちで書いてる可能性 :

◎ Bluetoothリモコンとのペアリングを解除した。 :

◎ Bluetoothスピーカのペアリングを解除した。 :

◎ Windows10機にWinSCPをインストール。 :

◎ HDMI接続で音が出ない。 :

◎ 実験用画像の入手。 :

◎ 画像や動画の読み込み。 :

◎ プロジェクト設定の仕方。 :

◎ クロマキー合成の仕方。 :

◎ 動画出力・保存。 :

◎ 表示位置の変更等。 :

◎ キーフレームの設定。 :

◎ アニメーションの変化の仕方を変える。 :

◎ 参考ページ・参考動画。 :

◎ IISの有効化。 :

◎ wwwroot のアクセス制御を変更。 :

◎ Perl CGI を動かせるようにした。 :

◎ FTPサービスを有効化。 :

◎ ポスタライズの動作がよく分からず。 :

◎ 有償ソフトを使う事例。 :

◎ フリーソフトを使う事例。 :

◎ Unityを拡張する事例。 :

◎ ImageMagickでもRGBA4444に変換できそう。 :

◎ 選んだ際のアレコレをメモ。 :

◎ Vine Linux 4.2 と Ubuntu Linux 8.10 を再インストール。 :

◎ アップグレードするかどうか悩む。 :

◎ 妄想。 :

◎ さらに妄想。 :

◎ こんな感じの妄想。 :

◎ _つかってみよう VNC :

◎ 結局クリップボードのやり取りはできなくて、色々試してるうちに更にハマる。 :

◎ vnc4 だと gnome 関係の設定ツールが起動できないな。 :

◎ _Linux man page for vncconfig.1 :

◎ _当方がターミナルにgnome-terminalを使っていたからのようです。ktermにしたらきちんとコピペできました。 :

この記事へのツッコミ

_昨日、 FreeBASIC で split() を ―― 文字列を区切り文字で分割して配列にする関数の実装を試してみたけれど。ダブルクオーティション(")が入ってくる場合に望んだ形にならなかったので、そのあたりをどうにかできないかと試していた。

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

一応処理は書けたような気がする。もはや split() の動作ではなくなっているけれど…。

実処理は以下。

_splitdq.bi

' License: CC0 / Public Domain

#ifndef __SPLITDQ__
#define __SPLITDQ__

Sub Splitdq(byref text As String, byref delim As String, result() as String)
    If text = "" Then Return
        
    Dim As ubyte ptr cp = strptr(text)
    Dim As ubyte ptr dp = strptr(delim)
    Dim As Integer slen = Len(text)
    Dim As Integer pi = 0
    Dim As Integer i = 0
    Dim As Boolean dqfg = False
    Dim As String s = ""
    
    Do
        If dqfg Then
            ' check double quotation pair
            If (*cp = 34) Then dqfg = False
        ElseIf (*cp = 34) Then
            ' found double quotation
            dqfg = True
        ElseIf (*cp = *dp) Then
            ' found delimiter
            s = Mid(text, pi + 1, (i - pi))
            pi = i + 1
        End If

        cp += 1
        i += 1

        If i >= slen Then
            s = Mid(text, pi + 1, (i - pi))
            pi = i + 1
        End If
        
        If s <> "" Then
            ReDim preserve result(UBound(result) + 1)
            result(UBound(result)) = s
            s = ""
        End If
    Loop While (i < slen)
End Sub

#endif

テストサンプルは以下。

_test_splitdq.bas

#include "splitdq.bi"

Dim As String text
'text = "char id=32   x=250   y=22    width=5     height=5     xoffset=-2    yoffset=21    xadvance=7     page=0  chnl=15"
text = "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"

Dim words() As String
splitdq(text, " ", words())

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

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

> test_splitdq.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.

ダブルクオーティションで挟まれた部分については区切り文字を無視するようにできた。

ただ、バグがありそうな気がする…。こういう文字列を渡すとおかしくなる、という場面がありそうな…。

処理の仕方も無駄がありそう。少なくとも処理速度は期待できない予感。

でもまあ、今回やりたいことはできそうだから、これでもいいか…。

一般的に split() ってどんな感じに実装されたりするのか気になってググってみた。

以下の事例を見て目ウロコ。元文字列の最後に区切り文字を追加してから処理を始めることで、ループがスッキリしてる…。その手があったか…。

_Split the string into substrings using delimiter - GeeksforGeeks

FreeBASIC版を書いてみた。ダブルクオーティションに対応させようとして、記述が長くなってしまったけれど…。

_splitstringa.bi

#ifndef __SPLITSTRINGA__
#define __SPLITSTRINGA__

Sub splitStringA(ByVal text As String, ByVal delim As String, result() as String, ByVal chk_dbqt As Boolean = False)
    If text = "" Then Return
    Dim As String src = text & delim
    Dim As String word = ""
    Dim As Boolean founded_dbqt = False

    For i As Integer = 0 To Len(src) - 1
        If founded_dbqt Then
            word &= Chr(src[i])
            If src[i] = 34 Then founded_dbqt = False  ' found double quote
        Else
            If src[i] <> delim[0] Then
                ' not delimiter
                word &= Chr(src[i])
                If chk_dbqt And src[i] = 34 Then founded_dbqt = True  ' found double quote
            Else
                ' found delimiter
                If word <> "" Then
                    ' word is not empty. save word to array
                    ReDim preserve result(UBound(result) + 1)
                    result(UBound(result)) = word
                    word = ""
                End If
            End If
        End If
    Next i
    If word <> "" Then
        ' word is not empty. save word to array
        ReDim preserve result(UBound(result) + 1)
        result(UBound(result)) = word
    End If
End Sub

#endif

使用サンプルは以下。fbc test_splitstringa.bas でコンパイル。

_test_splitstringa.bas

#include "splitstringa.bi"

Dim As String text
text = "char id=32   x=250   y=22    width=5     height=5     xoffset=-2    yoffset=21    xadvance=7     page=0  chnl=15"
'text = "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"

Dim words() As String
splitStringA(text, " ", words())
'splitStringA(text, " ", words(), True)  ' check double quote

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

test_splitstringa.exe を実行。たしかに分割できている。

> test_splitstringa.exe
[char id=32   x=250   y=22    width=5     height=5     xoffset=-2    yoffset=21    xadvance=7     page=0  chnl=15]
0: [char]
1: [id=32]
2: [x=250]
3: [y=22]
4: [width=5]
5: [height=5]
6: [xoffset=-2]
7: [yoffset=21]
8: [xadvance=7]
9: [page=0]
10: [chnl=15]
end.

それとは別の実装事例。FreeBASICのWikiを眺めてたら、そもそも split() の実装サンプルが紹介されてた。まさかそんなページで紹介されていたとは…。

_Passing Arrays to Procedures - FreeBASIC Wiki Manual | FBWiki

内容的には、instr() で区切り文字を探して位置を求めて、頭からそこまでの文字列を配列に記録したら、その文字列分を元文字列から削除して処理を続けていた。サブルーチンに引数として元文字列を渡す際、値渡しで渡してるから、元文字列を破壊しても大丈夫ということなのだろう…。もしかすると strtok() を使った事例と考え方は似ているのかもしれない。

これも手元で動作確認してみた。

_splitstringb.bi

#ifndef __SPLITSTRINGB__
#define __SPLITSTRINGB__

Sub splitStringB(ByVal src As String, ByVal delim As String, result(Any) As String)
    Do
        Dim As Integer i = InStr(1, src, Chr(delim[0])) ' search delimiter
        ReDim Preserve result(UBound(result) + 1)
        If i = 0 Then
            ' not found delimiter. exit loop
            result(UBound(result)) = src
            Exit Do
        End If
        result(UBound(result)) = Left(src, i - 1)  ' save word to array
        src = Mid(src, i + 1)  ' delete word
    Loop
End Sub

#endif

使用サンプルは以下。fbc test_splitstringb.bas でコンパイル。

_test_splitstringb.bas

#include "splitstringb.bi"

Dim As String text
text = "char id=32   x=250   y=22    width=5     height=5     xoffset=-2    yoffset=21    xadvance=7     page=0  chnl=15"
'text = "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"

Dim words() As String
splitStringB(text, " ", words())

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

ただ、この版は、区切り文字が連続して並んでる際、それぞれを配列変数に入れてしまう。

> test_splitstringb.exe
[char id=32   x=250   y=22    width=5     height=5     xoffset=-2    yoffset=21    xadvance=7     page=0  chnl=15]
0: [char]
1: [id=32]
2: []
3: []
4: [x=250]
5: []
6: []
...
34: [page=0]
35: []
36: [chnl=15]
end.

もしかすると文字列を切り出した後、文字列が空かどうかを調べて、空じゃなければ配列に格納するようにすればいいのだろうか…？

1文字=1byteの文字列なら処理が書けたので、せっかくだからマルチバイト文字列にも対応させられないものかと思い立ったのだけど。String を、マルチバイト文字列を格納する WString に書き換えれば済むかなと思ったらコンパイルすら通らず。

WString や ZString は、扱いが面倒らしい…。

_FreeBASICのワイド文字列が使いにくい件 - 飴屋ぷろじぇくと
_FreeBASIC Compiler - 飴屋ぷろじぇくと
_Problem passing and copying fixed length WSTRING array - freebasic.net

あらかじめ領域を固定で確保しておかないといけないとか、サブルーチンや関数に WString の配列変数を渡せないとか…。これはなかなか大変…。

区切り"文字"で分割する分にはまだこうして書けるけど、区切り"文字列"で分割できるように対応しようとするとちょっと大変そう。文字列検索/文字列探索アルゴリズムの話になって、KMP法とかBM法とかが出てくる…。

_文字列探索アルゴリズムとは？KMP法やBM法について解説
_文字列検索アルゴリズムについて #アルゴリズム - Qiita

Prev - 2024/04 - Next