Question

vb 删除带指定字符串的行

例如，指定字符串111，222，333
内容为
aaa111
ccc
vvv
222mmm
dk33io
执行后结果为cccvvv（有大量的字符串需要排除!!!）

Answer 1

给你思路：先按行读取查找是否有指定的字符如果没有写入指定的文件中删除文本文件中的指定行只能先读后写个人观点，仅供参考！

Answer 2

给你个示例程序： Dim sLines() As String, lCount As Long
Dim ArrR As VariantPrivate Sub Command1_Click()
Dim sLaser As String
Dim sText As String
sText = Text1.Text
sLines() = Split(sText, vbCrLf)
If Len(sText) > 0 Then
lCount = UBound(sLines())
End If
sLaser = "あいしてるLY.-Laser"
For i = 0 To lCount - 1
For j = 0 To UBound(ArrR)
If InStr(1, sLines(i), ArrR(j)) Then
sLines(i) = sLaser
End If
Next
Next
sText = Replace(Join(sLines(), vbCrLf), sLaser & vbCrLf, Empty)
Text2.Text = sText
End SubPrivate Sub Form_Load()
ArrR = Array("111", "222", "333")
End Sub