代碼中有任何錯誤

我有一個像下面的代碼。要使用下面的代碼拆分數字。現在我需要在MYARRAY代碼中有任何錯誤

 <html> 
    <body onload = "VerifyTimeSelectionNew();"> 
    <script language="VBScript"> 
    Const LEVEL_DATE_RANGE1 = 110 
    Function VerifyTimeSelectionNew() 
    'Dim cboTime 
    'cboTime = document.getElementsByName("TimeDropdown:cboTime") 
    'If CInt(cboTime.options(cboTime.selectedIndex).value) = LEVEL_DATE_RANGE1 Then 
     Dim hdnTime 
     Dim MyArray, i, newValue,value,newArray 


     hdnTime="0:0:0:0:0:2:201201:201311:False:False:True:False" 


      MyArray = Split(hdnTime, ":") 
      For i = 0 to 3 
     MsgBox (MyArray(i)) 
     Next 

    value = MyArray(7) 
     newArray = split(value ,"") 

     // newValue = value.substring(0,4) 

     MsgBox(newArray(0)) 

    End Function 

    </script> 

     </body> 
     </html>

分裂值店當我執行此我得到201311.現在無法分割201311. u能告訴我ÿ???

來源

2014-01-06 Janu

我不認爲你可以聲明並分配變量作爲一個單一的在VBScript語句（不像，比方說，VB.Net） –

@Damien_The_Unbeliever：謝謝！我編輯了腳本。你能幫助我嗎？ – Janu

請不要移動目標。你的編輯是一個完全不同的問題，所以你應該把它作爲一個新的問題發佈。 –

您的代碼段存在幾個問題。

正如@Damien_The_Unbeliever已經指出的那樣，你不能定義一個變量並同時給它賦值。 VBScript只允許這個常量。
VBScript不支持將變量定義爲特定類型。
VBScript字符串不是對象，所以它們沒有方法Substring()。改用Left函數。

更改這些行：

Dim value As String = "JohnRich" 
Dim subString As String = value.Substring(0,4)

到這一點：

Dim value  : value  = "JohnRich" 
Dim subString : subString = Left(value, 4)

或本：

Dim value, subString 

value  = "JohnRich" 
subString = Left(value, 4)

來源

2014-01-06 09:07:06

代碼中有任何錯誤

回答

相關問題