如果是固定格式的,
创新互联公司网站建设由有经验的网站设计师、开发人员和项目经理组成的专业建站团队,负责网站视觉设计、用户体验优化、交互设计和前端开发等方面的工作,以确保网站外观精美、网站设计、成都网站设计易于使用并且具有良好的响应性。
str=34X+45Y=67Z
x=split(str,"X")(0) ‘以X分割,取第0段,即:34
y=split(split(str,'+')(1),'Y')(0) '以+分割,取第1段即:45Y=67Z,再以Y分割,取0段得45
z=split(split(str,'=')(1),'Y')(0) '同上
把字符串分割,查找,截取这些常用字符串处理函数掌握了,
就差不多能随心所欲的处理了...
以上是vb6.0代码,
Dim 测试文本 = "td class=''68/tdtd class=''65/tdtd class=''169/td"
Dim 匹配集合 = (New Regex("(?is)(?=)[^]+(?=)")).Matches(测试文本)
Dim 结果列表 As New List(Of Decimal)
For Each 匹配 As Match In 匹配集合
If IsNumeric(匹配.Value) Then 结果列表.Add(CDec(匹配.Value))
Next
软糖来回答吧, 已测试可用。
如满意请采纳,谢谢。
将16进制数存在变量 a 中
b=mid(a,1,2) c = mid (a,3,2)
b就是AA c就是55
Dim fs As New System.IO.FileStream("D:\1.txt", IO.FileMode.Open, IO.FileAccess.Read)
Dim buffer(3) As Char
Dim re As New System.IO.BinaryReader(fs)
re.Read(buffer, 0, 4)'表示从0位开始读4位
MsgBox(buffer)