大侠，关于文本操作，指教。

XJ_HE · 发表于 2003-11-18 09:42:00

Sub p3()
Dim i As Single
Dim j As Single
Dim start As Integer
Dim ed As Integer
Dim str1 As String
Dim str2 As String
Dim a As String
j = ThisDrawing.Utility.GetReal(vbCrLf & "输入增加功率：")
Call selectobject
Dim e As AcadMText
For Each e In se
  '将对象的字符给变量A
a = e.TextString
  '获得截取字符串的首位置
start = InStr(1, a, "/")
  '获得欲截取数据的结束位置
ed = InStr(1, a, "dBm")
  '将前面的字符赋给S1
  str1 = Mid(a, 1, start)
'将后面的字符赋给S1
str2 = Mid(a, ed, 3)
  '取出数据，并改变
i = Val(Mid(a, start + 1, ed - start))
（在这里出错，以前I的值就是一个数值，比如：39#-F13-A1/1.6dBm，I的值为1.6）
（但是最近在这里总是出错，它不仅取出了数值。  I 竟然会是一个字串，里面有关于文本格式的说明。

0zi1bdnj31b.bmp

每次我都要将文本改为gbc字体。才能继续下去。究竟是什么原因，请教各位。）
i = i + j
e.TextString = str1 & Format(i, "0.0") & str2
e.Update
Next e
End Sub

mccad · 发表于 2003-11-18 12:33:00

你把原来整个字符串内容贴上来吧。
因为多行文字有格式符，有时你做更改时会不知不觉地加入了一些格式符，如字体及文字大小等内容。

XJ_HE · 发表于 2003-11-18 15:07:00

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:vwm51j3cfh0.dwg
下载次数:0 文件大小:120.36 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

这是我们的文件。每次去修改功率挺麻烦。我就写了一段小程序。希望可以轻松一些，以前挺好用。后来就出错。好象是有的文件可以，有的就出错，取回来的不仅是字串，还有字体等。也不太清楚，特迷惑。所以求救。

subtlation · 发表于 2003-11-18 16:09:00

把selectobject过程也放上来，这样试用一下看会不会出问题

efan2000 · 发表于 2003-11-18 19:29:00

应该是多行文字控制的问题。
如果你能确定文字内容中的“/”是最后一个/符号，那么也可以使用InStrRev来获取它的位置，它的意思是从最后反向开始查找，而InStr是正向查找。如：39#-F13-A1/1.6dBm，那么两都返回的是一样的。而/c/x;39#-F13-A1/1.6dBm，两都就要区别了。