tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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の使い方がこれで正しいのか、不安ですが....。
ご迷惑をおかけして本当に申し訳ありませんでした。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。