扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
如果是固定格式的，
创新互联公司网站建设由有经验的网站设计师、开发人员和项目经理组成的专业建站团队，负责网站视觉设计、用户体验优化、交互设计和前端开发等方面的工作，以确保网站外观精美、网站设计、成都网站设计易于使用并且具有良好的响应性。
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)
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网