UC知道VB 文本内容对比问题
来源：百度知道 编辑：UC知道 时间：2024/07/12 01:00:18
本人用VB写了个公网IP读取小程序，实现将读取到的IP自动写入到C盘的“公网IP.txt”中，并将得到的IP与文本文件中所保存的IP对比，如IP已存在则提示“此IP已存在”，否则将IP写入文本中（目前只实现了将新生成的IP与上次生成的IP对比，而没有实现整个文档逐行对比）。现在想实现的是IP不能为空，再逐行比较新产生的IP和文本中已存在的IP，只要文本文件中有的IP都不写入，本人才接触VB，请高手帮忙修改一下。。。不胜感激~~~~
Private Sub Command1_Click()
Open "c:\公网IP.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, ipstring
Loop
Close #1
If Trim(ipstring) = Trim(Text1) Then
MsgBox "此IP已存在"
Else
Open "c:\公网IP.txt" For Append As #1
Print #1, Text1.Text
Close #1
End If
End Sub
Private Sub Command1_Click()
Open "c:\公网IP.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, ipstring
Loop
Close #1
If Trim(ipstring) = Trim(Text1) Then
MsgBox "此IP已存在"
Else
Open "c:\公网IP.txt" For Append As #1
Print #1, Text1.Text
Close #1
End If
End Sub
Private Sub Command1_Click()
dim Flag as boolean
if trim(text1)<>"" then
Open "c:\公网IP.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, ipstring
If Trim(ipstring) = Trim(Text1) Then
MsgBox "此IP已存在"
flag = true
exit do
end if
Loop
Close #1
if flag=false then
Open "c:\公网IP.txt" For Append As #1
Print #1, Text1.Text
Close #1
end if
else
msgbox "ip不能为空"
end if
End Sub