各位大虾和斑竹，急救！怎样得到text对象的汉字字符串？

petertian · 发表于 2004-4-12 15:29:00

我利用VBA想得到注记的字符串，但是得到的好像是一个表？如下：
txtstr(i) = telement.TextString
txtstr(i) 的返回值是 {\f宋体|b0|i0|c134|p54;黄河机械厂第二分厂}，但是，我只想要"黄河机械厂第二分厂"怎么办？？多谢！！！！

mikewolf2k · 发表于 2004-4-12 19:11:00

前面那一串应该是mtext中实现上下标功能的字符串,找找规律,去掉这些功能字符.

雪山飞狐_lzh · 发表于 2004-4-12 20:06:00

copy


Function Test(String1 As String)
a = Split(String1, ";")
Test = Left(a(1), Len(a(1)) - 1)
End Function

petertian · 发表于 2004-4-12 22:18:00

楼上大虾：我用了这个函数后，工程提示Split函数没有定义，能否告诉我Split函数是怎么回事，多谢大虾相助！

mikewolf2k · 发表于 2004-4-12 22:47:00

没有3楼那么简单,如果你的字符串有";"怎么办.
可以用instr函数得到";"的位置,再用mid函数截取所需的字符串.

雪山飞狐_lzh · 发表于 2004-4-13 15:23:00

copy


Private Function Test(ByVal String1 As Variant) As String
String2 = ";"
a = Right(String1, Len(String1) - Len(String2) - InStr(String1, String2) + 1)
Test = Left(a, Len(a) - 1)
End Function

petertian · 发表于 2004-4-14 14:53:00

多谢楼上大虾：兄弟我向你致敬！！！多谢！好了！呵呵！

各位大虾和斑竹，急救！怎样得到text对象的汉字字符串？

发表回复

精选推荐

浏览过的版块