[ホーム] ＞
[VBScript FAQ 一覧] ＞ [GetPrivateProfileString で文字化けする場合の対処のサンプルコード]
GetPrivateProfileString は ini ファイルから値を取得する便利な関数です。
しかし欠点があります。最初にバッファを確保する必要があります。
バッファで余る分はそのまま元有った文字が残ります。
例えバッファをスペースで埋めてから取得した場合、残りのスペースの部分はいわゆる「ゴミ」として残ります。
結果をテキストファイルなどで開くと文字化けコードとしてのこってしまいます。そのような「ゴミ」を消去するサンプルコードを紹介します。
次のサンプルではゴミの場所を見つけてそこまでの文字を取得します。
サンプル========================================
TestStr = Space(1024)
lRet = GetPrivateProfileString("MAIN", "Test", "",TestStr, 1024, "c:\temp")
TestStr = Trim(Left(TestStr, InStr(TestStr, Chr(0)) - 1))
================================================
[ホーム] ＞
[VBScript FAQ 一覧]