GetPrivateProfileString()で (ID:81923)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > バッファがいっぱいまで読み込まれているのを判定 GetPrivateProfileString で String 型の変数に読み込んだ場合、 <String 型の変数> = <読み込んだ文字列> & vbNullChar となります。 String 型の変数のサイズが小さい場合 <String 型の変数> = <読み込んだ文字列の先頭ＸＸバイト> のようになり、 vbNullChar は含まれません。 それなので、次のような感じですね。 Dim s As String Dim i As Integer Dim l As Long i = 0 Do i = i + 1 s = Space(256 * i) l = GetPrivateProfileString(....., s, .....) If InStr(1, s, vbNullChar) > 0 Then s = Mid(s, 1, InStr(1, s, vbNullChar) - 1) Debug.Print s Exit Do End If Loop