投稿日 | : 2003/11/15(Sat) 18:27 |
投稿者 | : KG |
Eメール | : |
URL | : |
タイトル | : Re^3: 条件に合った行の削除・・・ |
行頭が「×××」となっているならば
下記のような方法もとれますね。
Private Sub Command1_Click()
Dim fnoR As integer
Dim fnoW As integer
Dim ReadLine As String
fnoR = FreeFile
Open "c:\sampl.txt" For Input As #fnoR
fnoW = FreeFile
Open "c:\sampl_rslt.txt" For Output As #fnoW
Do Until EOF(fnoR)
Line Input #fnoR, ReadLine
If Left$(ReadLine,3) <> "×××" Then
Print #fnoW, ReadLine
End If
Loop
Close #fnoR
Close #fnoW
End Sub