Question

我一直在搜索Google和StackOverflow并确实找到了一些问题的部分答案。这是我的问题：

我试图创建一个小脚本，向用户提供关键字，一旦你点击输入，它就会将数组解析为Chrome或Firefox，并打开所有各种搜索的标签。有用！但是，然后我想扩展它，所以我可以创建一个.txt文件，并从中读取它，这也有效！但由于它是我们正在搜索的日语网站，日语会产生更好的结果！

所以我得到了ForReading和TriState / Unicode = -1，它确实用日语发出了一些东西，问题是它没有发出我插入文档的字符。：/我现在不知所措。以下是我需要一些帮助的代码部分：

'Declaring
Option Explicit
Const ForReading = 1
Const Unicode = -1
Dim FullPath
Dim objShell
Dim SearchArray
Dim Figure
Dim Index
Dim listWord
Dim Mandarake
Dim invalidName
Dim rawImport
Dim objFSO
Dim objTextFile
FullPath = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(FullPath&"\mandalist.txt", ForReading,True,Unicode)
Set objShell = CreateObject("Shell.Application")
SearchArray = Array()
mandarake = "http://ekizo.mandarake.co.jp/shop/en"
'Starting do loop until we trigger the search with "go"
Do
    ReDim Preserve SearchArray(UBound(SearchArray)+1)
    Figure = InputBox("Enter a name or type 'go' when you're done!", "Figure search", "List")
    SearchArray(UBound(SearchArray)) = "http://ekizo.mandarake.co.jp/shop/en/search.do?action=keyword&doujin=all&keyword="&Replace(Figure," ","+")
'Trying to handle empty or "Name" entry into array error
        If Figure = Empty Then 
            invalidName = MsgBox("Are you sure you want to quit?",1,"Are you sure?")
                If invalidName = vbOK Then
                    WScript.Quit (0)
                End If
    ElseIf Figure = "List" Then
        Do Until objTextFile.AtEndOfStream
            rawImport = objTextFile.Readline
            Figure = Replace(rawImport," ","+")
            SearchArray = Split(Figure , ",")
            Call objShell.ShellExecute("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", mandarake, "", "", 1)
                For Index = 0 To UBound(SearchArray)
                    Call objShell.ShellExecute("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", "http://ekizo.mandarake.co.jp/shop/en/search.do?action=keyword&doujin=all&keyword="&SearchArray(index), "", "", 1)
                    WScript.Sleep(1500)
            Next
            WScript.Quit (0)
        Loop

我有更多的代码因此所有的dims和set，但是，如果If Figure =＆＃34; List＆＃34;事实并非如此，它将继续插入手动关键字，即使是日本标志也可以。问题是，无论我粘贴到文本文件中，它都会将其他字符（也是一些日语的东西）解析为URL而不是我放入的内容。我怎样才能让它对待charset，因为它应该是到？

示例是：

Mandalist.txt中的文字=グリフォンアスナ Chrome中的网址中的文字=믯낂菣闪苣뎃苣苣苣誃 - HMF：s

非常感谢任何帮助。

PS - 这是我的第一个项目，我不依赖于我的老师在学校给我写的一张纸，所以它可能很简单，但我不能让它工作。

由于 / CuraeL

VBS - 奇怪的日文字符转换

0 个答案: