vb中如何将一个字符串写入txt文档

Question

首先判断字符串将要写入的字符串跟以前的是否相同，若相同就不在写入，若不同则写入
如：将要写入adfa
原来的txt中有ad
adfa
asdf
其中和原来一个相同，则就不要写入啦

Answer 1

建议算法：
将txt文件中的文本读取到字符串数组a中
然后把第一个要存入的字符串与a中每一个比较，如果都不相同，则把要存入的字符串加入到a字符串数组尾部，否则，不加入尾部。
最后，将a字符串数组中所有字符串保存到原txt文件。

Answer 2

If Text1.Text = "adfa" Then
Print "相同不写入"
Else
Print "不相同写入"
End If

Answer 3

Private Sub Command1_click()
Dim s1 As String, s2 As String
s1 = "adfa"
Open "文件路径" For Input As #1
Do While Not EOF(1)
Line Input #1, s2
If s1 = s2 Then Exit Sub
Loop
Close #1
Open "文件路径" For Append As #1
Print #1, s1
Close #1
End Sub本回答被网友采纳