掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Tab文字 (ID：111670)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Regexも試されたとありますが・・・ matchではなく・・・ Dim Flag As Integer = 0 Dim sw As StreamWriter = New StreamWriter(Application.StartupPath + "\TEST.CSV", False) Do sw.WriteLine(Flag.ToString + vbTab + "aaa" + vbTab + "bbb" + vbTab + "ccc") Flag += 1 Loop Until Flag = 5 sw.Close() Dim rg As Regex = New Regex(vbTab) Dim sz() As String Dim txt As String Dim sr As StreamReader = New StreamReader(Application.StartupPath + "\TEST.CSV") Do txt = sr.ReadLine If txt <> "" Then sz = rg.Split(txt) If sz.Length > 0 Then For Each txt In sz Debug.WriteLine(txt) Next End If End If Loop While txt <> "" sr.Close() こんなかんじではどうでしょうか？ 以上。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.