Question

我创建的程序可以帮助我从天气网站下载图像，因此我可以获得雷达图像。它创建了一个名为＆＃34; radar＆＃34;然后是时间。例如，如果是下午5:00，它将被命名为Radar500.png。

下载工作正常，但它说我在某一行上有错误：

Const adSaveCreateOverWrite = 2
Const adTypeBinary = 1
if hour(time) > 12 then
  a=hour(time)-12
else        
  if hour(time) = 0 then
    a="12"
  else
    a=hour(time)
    b=minute(time)
  end if
end if
b=minute(time)
strSource = ""
strDest = "C:\Users\Gabriel\Desktop\Overnight weather\radar"+a+"s"+b+".jpg"
WScript.Echo "path: "+strDest
'*****************************************************************
'** Download the image
strResult = GetImage(strSource, strDest)
If strResult = "OK" Then
  wscript.quit(0)
Else
  wscript.quit(1)
End If

Function GetImage(strPath, strDest)
  Dim objXMLHTTP, nF, arr, objFSO, objFile
  Dim objRec, objStream

  'create XMLHTTP component
  Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")

  'get the image specified by strPath
  objXMLHTTP.Open "GET", strPath, False
  objXMLHTTP.Send

  'check if retrieval was successful
  If objXMLHTTP.statusText = "OK" Then
    'create binary stream to write image output
    Set objStream = CreateObject("ADODB.Stream")
    objStream.Type = adTypeBinary
    objStream.Open
    objStream.Write objXMLHTTP.ResponseBody
    objStream.SavetoFile strDest, adSaveCreateOverwrite
    objStream.Close
    GetImage = "OK"
  Else
    GetImage = objXMLHTTP.statusText
  End If
End Function

他们说错误发生在第29行Char 1。

Answer 1

使用strDest = "C:\Users\...\radar" & a & "s" & b & ".jpg"。根据{{3}}

虽然您也可以使用+运算符来连接两个运算符   字符串，您应该使用&运算符进行连接   消除歧义。当您使用+运算符时，您可能不是   能够确定是否会发生加法或字符串连接。

表达式的类型决定了+的行为   运算符的方式如下：
If                                                   Then
Both expressions are numeric                         Add
Both expressions are strings                         Concatenate
One expression is numeric and the other is a string  Error: type mismatch
...

您的脚本应该可以使用下一个更改：

指定有效的strSource值，例如strSource = "http://www.goes.noaa.gov/FULLDISK/GMIR.JPG"
objXMLHTTP.Open "GET", strSource, False。注意strSource而不是strDest

＆＃34;类型不匹配＆＃34;下载图片时

1 个答案: