ASP Readline 非标准行尾

Question

我正在使用文件系统对象的 ASP Classic ReadLine() 函数。
一切都很好，直到有人在 Mac 上的 TextEdit 上制作了他们的导入文件。

行尾不一样，ReadLine() 读取整个文件，而不是一次读取 1 行。

有没有标准的处理方法？某种页面指令，或文件系统对象上的设置？

我想我可以读入整个文件，然后拆分vbLF，然后对于每个项目，将vbCR 替换为“”，然后一次处理一行，但这似乎有点笨拙.

我已经到处寻找这个问题的解决方案，但解决方案都是“不要以 Mac[sic] 行结尾保存文件”。

谁有更好的方法来解决这个问题？

Answer 1

没有办法改变ReadLine 的行为，它只会将CRLF 识别为行终止符。因此，唯一简单的解决方案就是您已经描述的解决方案。

编辑

实际上，在 ASP 服务器上应该有另一个开箱即用的库，它可能会提供一些帮助。那就是 ADODB 库。

ADODB.Stream 对象有一个LineSeparator 属性，可以分配 10 或 13 以覆盖它通常使用的默认 CRLF。该文档不完整，因为它没有描述如何将其与ReadText 一起使用。您可以通过传递 -2 作为其参数来获取 ReadText 方法以从流中返回下一行。

看看这个例子：-

Dim sLine
Dim oStreamIn : Set oStreamIn = CreateObject("ADODB.Stream")

oStreamIn.Type = 2 '' # Text
oStreamIn.Open 
oStreamIn.CharSet = "Windows-1252"
oStreamIn.LoadFromFile "C:\temp\test.txt"
oStreamIn.LineSeparator = 10 '' # Linefeed

Do Until oStreamIn.EOS
  sLine = oStreamIn.ReadText(-2)
  '' # Do stuff with sLine
Loop

oStreamIn.Close

请注意，默认情况下 CharSet 是 unicode，因此如果文件不是 Unicode，您需要分配文件使用的正确 CharSet。我使用“Unicode”这个词的意思是文档实际上意味着 UTF-16。这里的一个优点是 ADODB Stream 可以处理 UTF-8，这与 Scripting 库不同。

顺便说一句，我认为 MAC 使用 CR 作为行尾？它使用 LF 的 Unix 文件格式不是吗？