ASP实现TXT文本重复号码过滤

介绍使用ASP代码实现从TXT文件中过滤重复号码，并将结果显示在网页上的方法。

<%
  Const ForReading = 1
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  Set objFile = objFSO.OpenTextFile(Server.MapPath("numbers.txt"), ForReading)

  Dim uniqueNumbers
  Set uniqueNumbers = CreateObject("Scripting.Dictionary")

  Do Until objFile.AtEndOfStream
    line = Trim(objFile.ReadLine)
    If Not uniqueNumbers.Exists(line) Then
      uniqueNumbers.Add line, line
    End If
  Loop
  objFile.Close

  Response.Write "过滤后的号码：
"
  For Each number In uniqueNumbers.Keys
    Response.Write number & "
"
  Next
%>

代码说明：

1. 使用 Scripting.FileSystemObject 读取指定路径的TXT文件。
2. 利用 Scripting.Dictionary 对象的键值唯一性存储号码，实现去重。
3. 遍历 Scripting.Dictionary 对象，将过滤后的号码输出到网页上。

使用方法：

1. 将以上代码保存为ASP文件，例如 filter.asp。
2. 将需要过滤的号码保存到TXT文件中，例如 numbers.txt，每个号码占一行。
3. 将 filter.asp 和 numbers.txt 文件放置在同一目录下。
4. 在浏览器中访问 filter.asp 文件即可查看结果。