VBscript "Expected Statement"오류

Question

나는 VBScript 프로그램에서 작업하고 있는데 "Expected Statement"오류가 있습니다. 오류를 찾을 수 없습니다. 이 오류의 샘플을 보았지만 저를 도와주지 않았습니다.

저는 VBScript를 처음 사용합니다.

다음은 코드입니다.

Sub SetText(tx, lw) 
    Dim t, l, r, a 

    t = -1 
    l = Len(tx) 
    r = "" 
    a = 0 

    While t < l 
     t = t + 1 
     a = Asc(Mid(tx,t,1)) 

     If a >= 160 or a=60 or a=62 or a=38 or a=34 or a=39 or a=32 Then 
      If a = 32 Then 
       r = r + "&nbsp;" 
      Else 
       r = r + "&#" + Cstr(a) + ";" 
      End If 
     Else 
      r = r + Mid(tx,t,1) 
     End If 

    End While 'The error occurs at the beginning of this statement.' 

    If Not lw Then 
     r = "<pre>" + r + "</pre>" 
    End If 

    r = "<div style='width:auto; height:auto;'>" + r + "</div>"   
    objExplorer.document.body.innerHTML = r 
End Sub 

Answer 1

?? 나는 그것이 옳다고 생각하지 않는다.

나는 구문은 생각 :

While counter > 0 
    ... 
Wend 

대신이 시도, 그것은 다른 개선 사항이 있습니다 (I가 Mid베이스 1을 사용 꽤 확신하지 0 기지 - For t = 0 to Len (tx) - 1에 For t = 1 to Len (tx)을 변경하지 않은 경우) :

Sub SetText (tx, lw) 
    Dim t, r, c, a 

    'Standard prefix and optional pre tag.' 
    r = "<div style='width:auto; height:auto;'>" 
    If Not lw Then 
     r = r + "<pre>" 
    End If 

    'Process each character in string.' 
    For t = 1 to Len (tx) 
     'Get character and code.' 
     c = Mid (tx,t,1) 
     a = Asc (c) 

     'Change "character" if it is one of the special ones.' 
     If a = 32 Then 
      c = "&nbsp;" 
     Else 
      If a >= 160 or a = 60 or a = 62 or a = 38 or a = 34 or a = 39 Then 
       c = "&#" + Cstr (a) + ";" 
      End If 
     End If 

     'Add "character" to result (it may be a string at this point).' 
     r = r + c 
    Next 

    'Optional pre tag and standard suffix.' 
    If Not lw Then 
     r = r + "</pre>" 
    End If 
    r = r + "</div>" 

    'Inject into page.' 
    objExplorer.document.body.innerHTML = r 
End Sub 

나는 철저하게 (물론, 전혀, 정말로) 그렇게 Wend와 End While를 교체, 내가 문제가 있는지 알 수 (또는 원래의 솔루션으로 되돌릴 수 있도록하고, possib이 테스트하지 않았습니다 기본 1에 대한 t의 범위 변경 Mid).

Answer 2

은 참조 : http://www.w3schools.com/vbscript/vbscript_looping.asp

paxdiablo's answer 잘 - 당신은 VBScript로 End While를 사용하지 마십시오. 귀하의 코드는 다음과 같아야합니다 :

Sub SetText(tx, lw) 
    Dim t, l, r, a 

    t = -1 
    l = Len(tx) 
    r = "" 
    a = 0 

    While t < l 
     t = t + 1 
     a = Asc(Mid(tx,t,1)) 

     If a >= 160 or a=60 or a=62 or a=38 or a=34 or a=39 or a=32 Then 
      If a = 32 Then 
       r = r + "&nbsp;" 
      Else 
       r = r + "&#" + Cstr(a) + ";" 
      End If 
     Else 
      r = r + Mid(tx,t,1) 
     End If 

    Wend '<---' 

    If Not lw Then 
     r = "<pre>" + r + "</pre>" 
    End If 

    r = "<div style='width:auto; height:auto;'>" + r + "</div>"   
    objExplorer.document.body.innerHTML = r 
End Sub 

마지막으로 나는 그것의 레거시 제어 구조를 확인했으나 일반적으로 권장하지 않습니다. 코드는 아마 정말은 다음과 같아야합니다

Sub SetText(tx, lw) 
    Dim t, l, r, a 

    t = -1 
    l = Len(tx) 
    r = "" 
    a = 0 

    Do While t < l 
     t = t + 1 
     a = Asc(Mid(tx,t,1)) 

     If a >= 160 or a=60 or a=62 or a=38 or a=34 or a=39 or a=32 Then 
      If a = 32 Then 
       r = r + "&nbsp;" 
      Else 
       r = r + "&#" + Cstr(a) + ";" 
      End If 
     Else 
      r = r + Mid(tx,t,1) 
     End If 

    Loop 

    If Not lw Then 
     r = "<pre>" + r + "</pre>" 
    End If 

    r = "<div style='width:auto; height:auto;'>" + r + "</div>"   
    objExplorer.document.body.innerHTML = r 
End Sub 

는 사실, 지금까지의 내가 조언 되겠지만의이 코드의 내용을 잘 알고있는 아마 변경,하지만이 있습니다.