ipxf 发表于 2009-2-4 02:10:52

sxd出来帮一下忙

你帮我写的这个代码要是搜索内容在后面的话就没问题 但是在中间的话就会多出一个空格
像这样的搜索串http://www.youdao.com/search?q=内容&ue=gbk&keyfrom=163index
Dim $I, $str
If $CmdLineRaw = "" Then
        Exit
Else
        $CmdNub = StringSplit($CmdLineRaw, " ")
        Switch $cmdline
                Case "a"
                        For $I = 2 To $CmdNub
                                $str &= $cmdline[$I] & " "
                        Next
                        ShellExecute("http://translate.google.cn/translate_t?hl=zh-CN#en|zh-CN|" & $str)
                Case "b"
                        For $I = 2 To $CmdNub
                                $str &= $cmdline[$I] & " "
                        Next
                        ShellExecute("http://translate.google.cn/translate_t#zh-CN|en|" & $str)
                Case "c"
                        For $I = 2 To $CmdNub
                                $str &= $cmdline[$I] & " "
                        Next
                        ShellExecute("http://www.youdao.com/search?q=" & $str & "&ue=gbk&keyfrom=163index")
        EndSwitch
EndIf

sxd 发表于 2009-2-5 23:03:32

这就是为什么 要先学基础概念 再堆砌其他知识的必要性

再给你写一段 以后遇到问题 还是不会

不好意思 最近比较忙 没空上来
页: [1]
查看完整版本: sxd出来帮一下忙