Dim text() As String
Private Sub Command1_Click()
  text = Split(Text1.text, "/")
  wb = ""
  For i = 0 To UBound(text)
    If i = UBound(text) Then
      wb = wb + "document.all('" + text(i) + "')"
    Else
      wb = wb + "document.frames('" + text(i) + "')."
    End If
    Web.Navigate "javascript:try{" + wb + ".value='" + Text2.text + "';};catch(e){alert('表单路径不正确.')};function a(){};a();"
   
      Next
End Sub
请教这段代码意思，有知道的告诉我

[[it] 本帖最后由 woa 于 2008-12-4 11:02 编辑 [/it]]

把
a/b/c/d
这样的形式,转换为
document.all('a').document.all('b').document.all('c').document.all('d')
的形式

[[it] 本帖最后由 永夜的极光 于 2008-12-4 12:53 编辑 [/it]]