单行文本（多行文本）中的.TextString取出，转化为数字，并求和

ntyks · 发表于 2012-2-16 16:04:00

可能是没有“[”号或者是个全角的“[” ? 这里打不出来自己找个粘贴进去。
sset.Item(i).color = acYellow
If Left(E1, 1) = "[" or "全角的[" Then E1 = Val(Right(Left(E1, Len(E1) - 1), Len(E1) - 2))
else
E1 = Val(Right(Left(E1, Len(E1) ), Len(E1) - 1))
end if
qh=qh+Val(E1)

crazylsp · 发表于 2012-2-16 16:26:00

Dim i As Integer
Dim str, strArray() As String       '定义一个字符串和一个字符串数组
str = "｛\WO.7; 240 }"             '声明字符串
strArray = Split(str, " ")          '将字符串以空格为分界符分成一个字符数组
For i = 0 To UBound(strArray)       '循环输出字符数组中的值
Print strArray(i)
Next
'返回 strArray(0)=｛\WO.7;
   'strArray(1)=240就是你要的
   'strArray(2)=}

ntyks · 发表于 2012-2-17 14:54:00

楼上的分享一下啊！

单行文本（多行文本）中的.TextString取出，转化为数字，并求和

发表回复

精选推荐