查人人中国名人网施工合同质量标准:ASP排除重复数据的问题
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/28 18:36:49
这个星期的作业，下周一要交，我还没有做出来，请教大家一下，给出正确答案的高分奖励。
题目如下（是ASP的）：
A.TXT文件中有1000个手机号码，但有若干重复，请编写代码，剔除多余的重复号码（即重复的只保留一个），保存到B.TXT文件中。
题目如下（是ASP的）：
A.TXT文件中有1000个手机号码，但有若干重复，请编写代码，剔除多余的重复号码（即重复的只保留一个），保存到B.TXT文件中。
用FSO把内容读到对象中，把数据分隔为数组a
dim b
b=""
for i = 0 to ubound(a)
if instr(b,a(i)&"|") = 0 then
b = b & a(i) &"|"
end if
next
c= split(b,"|")
把数组C写到文件B
set mfo=Server.CreateObject("Scripting.FileSystemObject")
set rtf=mfo.OpenTextFile(server.mappath(A.TXT),1)
s=rtf.readall
c=split(s,"这里改位你在文件里面怎么分隔号码的符号")
for i=0 to ubound(c)
set mf=Server.CreateObject("Scripting.FileSystemObject")
set rt=mfo.OpenTextFile(server.mappath(B.TXT),2)
b=rt.readall'先存一个号码下去不然回错误
if instr(b,s(i))>0 then
b=b&"间隔符号"s(i)
end if
next
具体的自己修改一下，原理基本上是这样
也不知道你手机号码是怎么存储的.