ab.com コミュニティ

なんかいじってたら解決できました。

If InStr(1,zz,Mid$(bf,1,Len(bf)-1))>0 Then

でうまくいきました。
bf　は余分に"1"　確保されてるので、　bfにスペースが入っていたんでしょう
ありがとうございました。

＞しかし、問題は、InStrの部分みたいですね･･･
そうなんです。

Ｉf InStr(1,zz,”tes”)>0 Then

だとうまく動くのですが。

buはstringなので、問題はないはずなんですけど・・・

zz[dwAccessByte]=0

[code]zz[dwAccessByte]=0[/code]

このこーどが抜けているがために、最後にNULLもじが付いています。

しかし、問題は、InStrの部分みたいですね･･･

こんにちは。お久しぶりです。

EditBox3　に書いてある文字がData.txtの文章内にある場合、教えてくれるプログラムで、

[hide]Dim bf As String
'EditBox３のハンドルを取得
hEdit=GetDlgItem(hMainWnd, EditBox3)
'テキスト データを格納するためのバッファ領域を確保
length=GetWindowTextLength(hEdit)
bf=ZeroString(length+1)
'テキスト バッファを取得
GetWindowText(hEdit, bf, length+1)

Dim hFilee As Long
Dim dwFileSize As DWord
Dim dwAccessByte As DWord
Dim zz As BytePtr
hFilee=CreateFile("c:\Data.txt", GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE, _
ByVal 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
'ファイルサイズを取得し、バッファを確保する
dwFileSize=GetFileSize(hFilee,0)
zz=malloc(dwFileSize+1)
'ファイルの内容を文字列変数bufferに読み込む
ReadFile(hFilee,zz,dwFileSize,VarPtr(dwAccessByte),ByVal 0)
'ファイル ハンドルを閉じる
CloseHandle(hFilee)

If InStr(1,zz,bf)>0 Then
MessageBox(0,"あります","",MB_OK)
End If[/hide]

うまく動作しないのですが、どこがいけないのでしょうか。
教えてください。