VB如何提取htm代码中固定的字符串

来源：百度知道编辑：UC知道时间：2024/05/12 09:18:24

","tianjia");</script>
<script>o2(181396,"http:\/\/www.7haosf.com","帝国英雄","121.10.104.174","2007年/4月/17日/22点开放","中国电信","仿盛大1.85新地图","家族上送记忆","0","219.146.155.147 ","xiugai");</script>
<script>o2(181387,"http:\/\/sh.4546uc.com","袁京是玻璃","59.34.216.148","2007年/4月/17日/22点开放","中国电信","仿盛大1.85爽死","家族送记忆","0","219.146.155.147

Private Sub Command1_Click()
Dim TempLine As String
Dim StartPos As Long, EndPos As Long
Open "D:\a.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, TempLine
StartPos = InStr(TempLine, "http")
If StartPos > 0 Then
EndPos = InStr(StartPos, TempLine, ",")
If EndPos > 0 Then
EndPos = InStr(EndPos + 1, TempLine, ",")
If EndPos > 0 Then
List1.AddItem Mid(TempLine, StartPos, EndPos - StartPos - 1)
End If
End If
End If
Loop
Close #1
End Sub

VB如何提取htm代码中固定的字符串 VB中如何写这样的代码 VB中如何提取数值某数位的数？求一个在VB中提取系统日期后把日期改后大写的代码网址中.htm后面的参数，在代码中如何读取？ vb中，如何把x的值填到代码中 excel中如何提取填充色为某一固定颜色单元格内的数据？ vb中如何从一个文本框中提取需要的字符 VB中如何编辑关闭窗口的按钮代码 VB中如何打开一个工程的代码窗口