UC知道我只需要一句代码！请帮我补充
来源：百度知道 编辑：UC知道 时间：2024/06/05 18:50:14
要补充的是下面这段代码
如果S(I)包含在tmp中 //这里需要补充
<%
Dim F, T1, T2
Dim I, L, S(), tmp
Set F = Server.CreateObject("Scripting.FileSystemObject")
'读第二个文件
Set T2 = F.OpenTextFile(Server.MapPath("b.txt"))
Do While T2.AtEndOfLine = False
ReDim Preserve S(L)
S(L) = T2.ReadLine
L = L + 1
Loop
T2.Close
'读第一个文件并写第三个文件
Set T2 = F.CreateTextFile(Server.MapPath("c.txt"))
Set T1 = F.OpenTextFile(Server.MapPath("a.txt"))
Do While T1.AtEndOfLine = False
tmp = T1.ReadLine
For I = 0 To L - 1
如果 S(I)包含在tmp中 //这里需要补充
T2.WriteLine S(I)
Next
Loop
T1.Close
Set T1 = Nothing
T2.Close
Set T2 = Nothing
Set F = Nothing
%>
代码含义我解说如下：
我需要写能够直接在ASP执行的代码，哪位大侠帮忙写一下。
我有a.txt和b.txt，数据都特别大，a.txt大概有二十万多条，b.txt大概有八万多条，每一条是个字母组合，每一条一行，我需要把b.txt中和a.tx
如果S(I)包含在tmp中 //这里需要补充
<%
Dim F, T1, T2
Dim I, L, S(), tmp
Set F = Server.CreateObject("Scripting.FileSystemObject")
'读第二个文件
Set T2 = F.OpenTextFile(Server.MapPath("b.txt"))
Do While T2.AtEndOfLine = False
ReDim Preserve S(L)
S(L) = T2.ReadLine
L = L + 1
Loop
T2.Close
'读第一个文件并写第三个文件
Set T2 = F.CreateTextFile(Server.MapPath("c.txt"))
Set T1 = F.OpenTextFile(Server.MapPath("a.txt"))
Do While T1.AtEndOfLine = False
tmp = T1.ReadLine
For I = 0 To L - 1
如果 S(I)包含在tmp中 //这里需要补充
T2.WriteLine S(I)
Next
Loop
T1.Close
Set T1 = Nothing
T2.Close
Set T2 = Nothing
Set F = Nothing
%>
代码含义我解说如下：
我需要写能够直接在ASP执行的代码，哪位大侠帮忙写一下。
我有a.txt和b.txt，数据都特别大，a.txt大概有二十万多条，b.txt大概有八万多条，每一条是个字母组合，每一条一行，我需要把b.txt中和a.tx
我晕 我都给你说过了嘛， 我已经帮你弄好了，可以在asp里调用那个的，去看看我上次给你的回答吧
你在写代码的时候思路有问题,不应该读一行比较一行,
先把两个文件载入到数组中,再用两个循环进行比较
当我没说！！
如果 S(I)包含在tmp中 = if S(I) = tmp Then
人家都说了，人家需要的是asp脚本，是可以在ASP执行的代码，二楼居然还给了这样的VB代码。