Question

ASP排除重复数据的问题

这个星期的作业，下周一要交，我还没有做出来，请教大家一下，给出正确答案的高分奖励。

题目如下（是ASP的）：

A.TXT文件中有1000个手机号码，但有若干重复，请编写代码，剔除多余的重复号码（即重复的只保留一个），保存到B.TXT文件中。

Answer 1

用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

Answer 2

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
具体的自己修改一下，原理基本上是这样

Answer 3

也不知道你手机号码是怎么存储的.