txt查找vb源码（vb操作txt）
本文目录一览：
- 1、求vb源码，比较两个txt文件，取出相同的行，并输出到第三个txt文件
- 2、VB 获取网页源码 你的这个是怎么解决的.能和我说一下吗.谢谢
- 3、vb 从txt里面查找一段指定字符串?并取出后面的内容?
- 4、用vb编写一个程序，对txt文档中的数据进行查找并输出
- 5、一个VB程序全部源代码在哪看
- 6、vb 读取并查找指定的TXT文本内容怎么查找
求vb源码，比较两个txt文件，取出相同的行，并输出到第三个txt文件
Option Explicit
Private Sub Form_Load()
Dim str1$, aa$(), bb$(), i%, j
Open "c:\1.txt" For Input As #1 'c:\1.txt 为第一个txt文件
str1 = input(LOF(1), #1)
Close #1
aa = Split(str1, vbCrLf)
Open "c:\2.txt" For Input As #1 'c:\2.txt 为第一个txt文件
str1 = input(LOF(1), #1)
Close #1
bb = Split(str1, vbCrLf)
str1 = ""
For i = 0 To UBound(aa)
For j = 0 To UBound(bb)
If aa(i) = bb(j) Then
str1 = str1 aa(i) vbCrLf
Exit For
End If
Next
Next
Open "c:\3.txt" For Output As #1 '输出 c:\3.txt
Print #1, str1
Close #1
Shell "notepad.exe c:\3.txt", vbNormalFocus
'unload me
End Sub
VB 获取网页源码 你的这个是怎么解决的.能和我说一下吗.谢谢
1、提取：用这个vb小程序可以！
2、网页显示(必须先用上面程序将源码保存为txt，并且在打开窗口里选择该txt文件！)：
拖进一个webbrowser1，一个commondialog1，一个command1.
Private Sub Command1_Click()
CommonDialog1.ShowOpen
WebBrowser1.Navigate (CommonDialog1.FileName)
End Sub
vb 从txt里面查找一段指定字符串?并取出后面的内容?
说明txt查找vb源码：新建工程txt查找vb源码，保存到某文件夹，把那个文件1.txt也复制到该文件夹
用1个按钮就可以txt查找vb源码了txt查找vb源码：
Private Sub Command1_Click()
Dim MyStrLine As String
Open app.path "\1.txt" For Input As #1
Do While Not EOF(1) ' 循环至文件尾
Line Input #1, MyStrLine '读入一行
if left(MyStrLine,2)="李四" then
exit do
end if
Loop
Close #1 ' 关闭文件。
msgbox right(MyStrLine,len(MyStrLine)-3)
End If
用vb编写一个程序，对txt文档中的数据进行查找并输出
'假设你的源文件都是合法的，而且每个数都为2位，否则稍微复杂点，这里只做包含判断也就是无序判断,，未作错误处理。
Option Explicit
Private Sub Command1_Click()
Dim s, n, arr(4) As String, i As Integer, j As Integer
s = "c:\123.txt"'源文件位置
If Dir(s) "" Then '是否有文件存在
Open s For Input As #1
s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine)
Close #1
Else
MsgBox "未找到文件:" s
End If
For i = 0 To 3
n = InputBox("输入4个二位数字，第" i + 1 "个:")
If IsNumeric(n) Then
If Val(n) 9 And Val(n) 100 Then
arr(i) = n
Else
i = i - 1 '数字但不符合要求
End If
Else
i = i - 1 '非数字
End If
Next
For i = 0 To UBound(s)
For j = 0 To 3
If InStr(s(i), arr(j)) = 0 Then Exit For
Next
If j = 4 Then Print "行数：" (i + 1) " 数字：" Join(arr, ",") '正常退出说明4个数都包含
Next
End Sub
一个VB程序全部源代码在哪看
不知道txt查找vb源码你说txt查找vb源码的这个VB程序是编译后的可执行文件还是源程序txt查找vb源码，如果是源程序，那么txt查找vb源码你用VB打开其工程文件就能看到txt查找vb源码了。如果是可执行文件，那对不起，你要看到代码那就很难了，要是随随便便就能看到软件的代码，那么所有程序员的饭碗就都是纸糊的了
vb 读取并查找指定的TXT文本内容怎么查找
dim txt as string
txt=inputbox(" 请输入要查找的文本")
Do While Not EOF(nFile)
Input #nFile, str
if instr(str,txt)then
msgbox "OK"
Close nFile
exit sub
end
Loop
msbgox "NG"
Close nFile
