文字列の扱いについて教えて

メッセージ

マティ

文字列を扱う関数のヘルプを見ていると、文字位置で指定するように記載がありますが、/basic/function.sbpの定義を見ていると、
バイト単位で指定を行っているように思われます。

標準関数では、漢字（２バイト系）の処理はどのようになっているのでしょうか？
基本的に、各個人で実装しているのでしょうか？
お教え下さい。

たしか、文字列関係の関数はどれも実際にはバイト数で指定するものだったと思います。
2バイト文字には特別な対応をしておらず、要注意です。

コード: 全て選択

#prompt
#strict
Print InStr(1, "あ\", "\")
Print InStr(1, "表\", "\")

マティ

自分で実装する必要があるって事ですね！

ActiveBasicで使用する漢字コードはＳＪＩＳですよね！
もしかして、どのような漢字コードが来ても対応出来るようにバイト単位の
処理しか実装していないのでしょうか？

もし、ＳＪＩＳ専用の関数を実装するならどのように命名したほうがよいでしょうか？
実装を予定している関数は
Left$(),Right$(),Mid$(),TRim$,LRim()$,RRim$(),InStr()
です。

どなたかアドバイス願います。

河川屋

＞ＳＪＩＳ専用の関数を実装するならどのように命名したほうがよいでしょうか？
＞実装を予定している関数は
＞Left$(),Right$(),Mid$(),TRim$,LRim()$,RRim$(),InStr()
あと１つ、Len()があります。
N88Basicには、KMID$,KLEN$,KINSTRという漢字を１字として数えるための関数があります。
というわけで、これも、N88BASIC非互換の１つです。

ただ、非互換について一応弁護しておくと、
N88BASIC(DiskBasic)の頃の漢字の扱いは、今のMIME上の取り扱いと似ていて、
"123漢字456"という文字は、
"123"+<KI>+"漢字"+<KO>+"456"　　　※漢字はＪＩＳコード
というように、全角半角切替えコードで切り替えていたため、
LEN("123漢字456")では10という値でなく切り替えコードを足した値
が返ってしまう、という決定的な不都合があったため、
・２バイト系文字操作命令が無いと漢字は事実上扱えなかった
という現実があったのですが、
SJISなら、切り替えコードに比べれば２バイト操作は無くても困らないです。

AB2で良ければKMid$,KLen$,KInstrなどといった関数もあります。
というわけでAB2を使うことを考えてみるのも同でしょうか。
（K～関数群を作るのも大した手間ではないでしょうけど）

Sinryow

私のところで，２バイト文字も１文字として扱うライブラリを公開しています。
http://ab.sinryow.net/charbase.php
参考にして下さい。

他にも同じようなライブラリを公開している方がいたような気がしましたが，忘れました・・・。

あと，２バイト文字も１文字として扱う必要性が頻繁にあるのでしたら，文字をUnicodeに変換するのも一手かもしれません。
（ABではUnicodeは結構使いにくいですが・・・）

マティ

Sinryowさん、２バイト文字の判定方法は大体同じですね！１バイト目が(80-9F,E0-FF)を漢字とみなす

Sinryowさんのコード

コード: 全て選択


Function Upper2Byte(char As Byte) As Long
	Upper2Byte=((char And &H80)=&H80 And (char And &H40)=((char And &H20)<<1))
End Function

自分のコード

コード: 全て選択


Function Upper2Byte(char As Byte) As Long
	Upper2Byte=((((char>>1) Xor char) And &hA0) = &h80)
End Function

あと、Unicodeについてですが・・・
ＳＪＩＳで定義したＤＢ（MySQL,Firebird,MSDN）にＣＳＶデータを転送する処理をＶＢ＋ＡＤＯで作成済みですが・・・
どうも文字コード変換処理がネックになっているようで、自分が満足出来る性能が出せないのです。
（ＤＢとＣＳＶ（２７万件）を比較し変更のあったデータのみ、履歴を作成して登録します。毎日実行するので１秒でも早く処理が終わってほしいので、ＡＢを使う気になりました。）
余分な余白はＤＢにセットしないので、文字列処理関数を作成する必要があるなって思っています。

マティ

文字列処理（KLen$,KLeft$,KRight$,KMid$,KTrim$,KLTrim$,KRTrim$,KInStr）の実装ができました。
ついでに呼び出し側で確保した領域にデータを渡す処理を作成したいと思います。

そこでパラメータ指定順をＣ言語互換にしたいと思いますので、どなたかお教え下さい。

実装予定関数名
KLenEx
KLeftEx
KRightEx
KMidEx
KTrimEx
KLTrimEx
KRTrimEx
KInStrEx

現在作成分はホームページにて公開中。
全関数が揃ったら実践コードモジュールに投稿したいな・・・！