ab.com コミュニティ

どうも文字列操作がうまくいきません
以下のようなコードで
TWArray[UseSet].WPath = "C:\AAA\"
WFilePath ="BBB.exe"
というような状況下に於いて以下のコードを実行した場合
WFilePath ="C:\AAA\BBB.exe"
となりそうなのですが、何故か
WFilePath ="C:\AAA\"
となってしまします。

Sub PWEx(ByVal WFilePath As String)
   If InStr(1,WFilePath,":") = 0 _
      Then WFilePath = TWArray[UseSet].WPath & WFilePath

また、
.WPath = "C:\AAA"
という状況下に於いて以下のコードを実行した場合
.WPath = "C:\AAA\"
となりそうなのですがデバッグしてみると
Right$(.WPath,1) = ""
となります、"A"のはずなんですが…

   If .WPath <> "" Then
      If Right$(.WPath,1) <> "\" Then .WPath = .WPath & "\"
   End If

上記２項目の共通点は変数は、String型で
変数に格納したパスやファイル名はGetPrivateProfileStringで
iniファイルから拾ってきた文字列ということです。
デバッグウィンドウの値を見ると文字列自体は
それぞれちゃんと格納されているようなのですが何が悪いのでしょうか？

_________________
--/* from Canalime */-- 　♪

GetPrivateProfileString関数など、文字列を返すAPIを使う場合、まずはString型にZeroString()の戻り値を代入するか、ポインタ型にmalloc()やcalloc()の戻り値を代入して領域を確保します。

今回の問題ですが、例えば(APIからは離れてください) ZeroString(8) の戻り値をString型変数aに代入すると、aの内容は

00 00 00 00 00 00 00 00

という構造をすることになります。
ここに "1234" という文字列が返されたとき、

31 32 33 34 00 00 00 00

構造がこのようになります。
つまり、文字数が余っているときには、末尾にNULL文字が残るのです。
このNULL文字は一般的には文字列の終端を表すため、デバッグウィンドウでもNULL文字以降は表示されません。
今回の例に戻ると、1つ目の事例は

"C:\AAA\---…---" & "BBB.exe" (わかりやすいように、ここではハイフンをNULL文字として説明します)
= "C:\AAA\---…---BBB.exe"
となっており、
2つ目の事例は

Right$("C:\AAA---…---",1) = "-" となるため、いずれも結果としては正しいのです。
とはいえ、意図しない結果であることは事実ですので、

TWArray[UseSet].WPath=MakeStr(TWArray[UseSet].WPath)

.WPath=MakeStr(.WPath)

のように、MakeStr関数を使えば解決できます。
(GetPrivateProfileString関数で拾った文字列に対して、これを実行すればOKです。他の文字列を返す関数でも同様のことがいえます。)

大変わかりやすい解説をして頂き有り難う御座いました。
幸い、GetPrivateProfileStringを都度書くのが面倒だったので
関数にしていた為、１行書き換えるだけで解決しました。
おかげで、ChDirを使って誤魔化すような真似をせずに済みました。

そっか…NULLだったのか。

_________________
--/* from Canalime */-- 　♪