社区 › VBA/VB/ActiveX/API 编程技术 › 单行文本（多行文本）中的.TextString取出，转化为数字，并求和

ntyks 发表于 2012-2-16 16:04:14

crazylsp 发表于 2012-2-16 16:26:18

可能是没有“[”号或者是个全角的“[”   ?    这里打不出来自己找个粘贴进去。
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)

ntyks 发表于 2012-2-17 14:54:29

crazylsp 发表于 2012-2-17 16:55:05

本帖最后由 crazylsp 于 2012-2-18 15:15 编辑

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-21 20:15:32

guankuiwu 发表于 2012-4-24 15:17:44

楼上的分享一下啊！

查看完整版本: 单行文本（多行文本）中的.TextString取出，转化为数字，并求和