UC知道vb如何操作二个txt文本文件？
来源：百度知道 编辑：UC知道 时间：2024/07/05 02:57:44
我有a.txt和b.txt，数据都特别大，a.txt大概有二十万多条，b.txt大概有八万多条，每一条是个字母组合，每一条一行，我需要把b.txt中和a.txt中相同的部分找出来，放到c.txt中。
只要b.txt中有一条和a.txt中的一条有其中一部分相同就放进c.txt。而不必长度也相同，比如a.txt中有cbcbq和doouu，b.txt中有cb，则需要把cb写入到c.txt中，
我举个例，比如a.txt是这样的：
goodkkl
sinasoo
hanhan
ukpooo
tuouud
houpin
zhuakuang
haihaikkk
b.txt中：
han
poo
zhua
kkkkkk
则需要把以下三个写进c.txt：
hanhan
ukpooo
zhuakuang
另外注意是把b.txt中的部分写进c.tct
还有我是需要写个fso代码放进asp中执行。
----------------
思路如下，
1、把a.txt内容全部读入一个字符串变量s。（s=input(lof(1),#1)）
2、使用循环，把b.txt的每行读出到s1，（使用line input #2，s1）
3、if instr（s,s1) then print #3,s1
4、只到鉴别完。
麻烦哪位大侠帮忙把代码给我写一下。
一楼的，还是出错！
错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/456/same.asp, line 5, column 6
Dim t As Date
-----^
只要b.txt中有一条和a.txt中的一条有其中一部分相同就放进c.txt。而不必长度也相同，比如a.txt中有cbcbq和doouu，b.txt中有cb，则需要把cb写入到c.txt中，
我举个例，比如a.txt是这样的：
goodkkl
sinasoo
hanhan
ukpooo
tuouud
houpin
zhuakuang
haihaikkk
b.txt中：
han
poo
zhua
kkkkkk
则需要把以下三个写进c.txt：
hanhan
ukpooo
zhuakuang
另外注意是把b.txt中的部分写进c.tct
还有我是需要写个fso代码放进asp中执行。
----------------
思路如下，
1、把a.txt内容全部读入一个字符串变量s。（s=input(lof(1),#1)）
2、使用循环，把b.txt的每行读出到s1，（使用line input #2，s1）
3、if instr（s,s1) then print #3,s1
4、只到鉴别完。
麻烦哪位大侠帮忙把代码给我写一下。
一楼的，还是出错！
错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/456/same.asp, line 5, column 6
Dim t As Date
-----^
Private Sub Form_Load()
Dim tb As New Table
Dim dat As New Catalog
Dim path As String
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim StrSql As String
Dim av As String
Dim bv As String
Dim I As Long
path = "C:\"
If Len(Dir(path & "\ADO.mdb")) = 0 Then
dat.Create "Provider=MIcrosoft.Jet.OLEDB.4.0;data Source=" & path & "\ADO.mdb"
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;data Source=" & path & "\ADO.mdb"
StrSql = "Select * Into a From [Text;DataBase=" & path & "].a.txt"
cn.Execute StrSql
StrSql = "Select * Into b From [Text;DataBase=" & path & "].b.txt"
cn.Execute StrSql
cn.Close
End If
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;data Source=" & path & "\ADO.mdb"
rst.Open "select * from a&