html - HTML VBS 特殊字符处理

Question

我有一个文件，它使用网站进行特定查询并通过 HTML 标头返回所需的数据。当使用提供的 SQL 查询将返回的数据写回文件时，它工作正常。如果查询中包含特殊字符，它将在该点停止。

导致问题的字符示例有“?”、“~”、“_”。我试图为返回的数据找到几种解决方法，但尚未确定一种新的功能。

这是目前我在数据返回时导出数据的方式：

Set objExportFile = objFso.OpenTextFile(exportFileLocation, 8, True, -1)
objExportFile.Writeline(objHead.responseText)
objExportFile.Close

谢谢，

Answer 1

我会尝试一次写一个字符，看看它是否在某个特定的地方停止，使用 cscript.exe 而不是 wscript.exe 运行它：

Set objExportFile = objFso.OpenTextFile(exportFileLocation, 8, True, -1)

sCharacterData = ""
sCharacterData = objHead.responseText 'write the response to a variable
wscript.echo("Character Length of sCharacterData: " & Len(sCharacterData))

vCharNumber = 0 'set the index

Do Until vCharNumber > Len(sCharacterData) 'loop through all the characters
  sCurrentChar = Mid(sCharacterData, vCharNumber, 1)
  wscript.write("CharNumber: " & vCharNumber & " Char: " & sCurrentChar)

  objExportFile.Write(sCurrentChar) 'write 1 character
  vCharNumber = vCharNumber + 1 'increment index
Loop

objExportFile.Close

Answer 2

你可以做这样的事情

Dim BadChar(2)
Dim Char
Dim header
BadChar(0) = "?"
BadChar(1) = "~"
BadChar(2) = "_"

header = objHead.responseText
For Each Char in BadChar
 If InStr(header, Char) Then
  header = replace(header, Char, "")
 End If
Next
Set objExportFile = objFso.OpenTextFile(exportFileLocation, 8, True, -1)
objExportFile.Writeline(header)
objExportFile.Close