0

Web サイトを使用して特定のクエリを実行し、必要なデータを HTML ヘッダー経由で返すファイルがあります。返されたデータを、提供された SQL クエリを使用してファイルに書き戻すと、正常に機能します。クエリに特殊文字が含まれている場合、その時点で停止します。

問題を引き起こす文字の例は、「?」、「~」、「_」です。戻ってきたデータに対していくつかの回避策を見つけようとしましたが、機能する新しい手段をまだ決定していません。

これは現在、データが戻ってきたときにデータをエクスポートする方法です。

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

ありがとう、

4

2 に答える 2

0

あなたはこのようなことをすることができます

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
于 2013-05-08T19:31:39.423 に答える
0

一度に文字を書いてみて、具体的にどこかで停止するかどうかを確認し、wscript.exe の代わりに cscript.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
于 2013-05-08T18:27:55.623 に答える