UC知道VB 处理字符串【高分悬赏】
来源：百度知道 编辑：UC知道 时间：2024/07/03 00:03:58
现在获得一段随机的字符串，格式如下：
ASSDF=WQE
DSF=DSFSDFSD
56321=ASDAX
FSDF=45632
ASDSDF=ASDA
......(这里有N行)
现在需要解决的问题是：
把每一行等号前后的字符分别写入到Text1(N).text和Text1(N).Tag
谢谢！
ASSDF=WQE
DSF=DSFSDFSD
56321=ASDAX
FSDF=45632
ASDSDF=ASDA
......(这里有N行)
现在需要解决的问题是：
把每一行等号前后的字符分别写入到Text1(N).text和Text1(N).Tag
谢谢！
'字符串数组strs()为随机字符串
For i=0 To UBound(strs)
Text1(i).Text=Left$(strs(i),InStr(strs(i),"=")-1)
Text1(i).Tag=Mid$(strs(i),InStr(strs(i),"=")+1)
Next
比如字符串放在变量s中
s="ASSDF=WQE" & vbcrlf & "DSF=DSFSDFSD" & vbcrlf & "56321=ASDAX"
dim alltmp$(),i&,linetmp$()
alltmp=split(s,vbcrlf)
for i=0 to ubound(alltmp)
linetmp=split(alltmp(i),"=")
text1(i)=linetmp(0)
text1(i).tab=linetmp(1)
next
假设你得到的字符串为S
这样做:
Dim A
A=split(S,vbcrlf)
For i=0 to Ubound(A)
Text1(i).Text=Split(A(i),"=")(0)
Text1(i).Tag=Split(A(i),"=")(1)
Next