タイトル : Re^12: テキストファイルからの文字読取り 投稿日 : 2009/01/26(Mon) 19:19 投稿者 : チキン
ありがとうございました、できました。 Dim WStr As String Dim FMax As Long Dim FCnt As Long Dim rs As New System.IO.StreamReader("A.txt",System.Text.Encoding.Default) WStr = rs.ReadToEnd FMax = WName.Length FCnt = 0 Do Until FCnt > FMax - 1 If TNo.Text = fMidB(WName, FCnt, 3) Then TName.Text = fMidB(WName, FCnt + 3, 6) End If FCnt = FCnt + 9 Loop WStrとFMaxの使い方がこれで正しいのか、不安ですが....。 ご迷惑をおかけして本当に申し訳ありませんでした。 |