投稿日 | : 2003/11/14(Fri) 20:24 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: 条件に合った行の削除・・・ |
オーソドックスな方法なら下記のようになりますが、30万行となると相当時間がかかる
ので、早くするには工夫が必要になってきます。
因みに1行当りの文字数はどの位・全体のファイルサイズは **MB
Private Sub Command1_Click()
Dim TxtLine As String
Dim MyString As String
Dim lngFileNo As Long
lngFileNo = FreeFile
Open "c:\sampl.txt" For Input As #lngFileNo
Do Until EOF(lngFileNo)
Line Input #lngFileNo, TxtLine
If InStr(TxtLine, "xxx") <> 1 Then
MyString = MyString & TxtLine & vbCrLf
End If
Loop
Close #lngFileNo
'保存処理
lngFileNo = FreeFile
Open "c:\sample1.txt" For Binary Access Write As #lngFileNo
Put #lngFileNo, , MyString
Close #lngFileNo
End Sub