vb读取网页的一部分内容，自动填写至目标input text

用户号
20200033 
户主
郭志杰 
承租人




...。。。
客户签名

 


此网页上还有多个input
网页源代码，需复制 郭志杰 名字
填写至客户签名 后面的 input里
谁能给个大致的代码或者类似的案例 谢谢
初学 请多多包涵
最好vb语言

Private Sub Command1_Click()
Dim Html As String
Dim XM As String
Html = WebBrowser1.Document.body.innertext
XM = Mid(Html, InStr(Html, "户主") + 2, InStr(Html, "承租人") - InStr(Html, "户主") - 2)
WebBrowser1.Document.All("clientmarkname").Value = XM
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "网址"
End Sub

经调试，用output写入，input读取，代码没问题。 请检查label2.caption的内容是否太大或含有无法识别的代码。 下面是具体代码： private sub command1_click() '写入 a = label2.caption open "e:\新建文件夹\beta.txt" for output as #1 print #1, a close #1 end sub private sub command2_click() '读取 a = label2.caption open "e:\新建文件夹\beta.txt" for input as #1 do while not eof(1) input #1, a debug.print a loop close #1 end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息