发布网友 发布时间:2022-04-22 05:06
共3个回答
热心网友 时间:2023-09-26 09:07
Dim str0 As String, idx As Long, str1 As String, str2 As String
str0 = "122012312}R4561_456}74321}1234123123}"
idx = str0.IndexOf("}")
Do While idx >= 0
str1 = str0.Substring(0, idx)
str2 = str0.Substring(idx + 1)
'在文本框中添加显示str1、str2,代码略
str0 = str2
idx = str0.IndexOf("}")
Loop
热心网友 时间:2023-09-26 09:08
Dim str() As String = "2012312}R4561_456}74321}1234123123}".Split("}") '以}分割2012312}R4561_456}74321}1234123123},数组str的元素分别是2012312、R4561_456、74321、1234123123、“”。
热心网友 时间:2023-09-26 09:08
用if语句 + 循环语句 + substring配合length功能 即可。