乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 81|回复: 6

各位大虾和斑竹,急救!怎样得到text对象的汉字字符串?

[复制链接]

23

主题

30

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
122
发表于 2004-4-12 15:29:00 | 显示全部楼层 |阅读模式
我利用VBA想得到注记的字符串,但是得到的好像是一个表?如下:
txtstr(i) = telement.TextString
txtstr(i) 的返回值是 {\f宋体|b0|i0|c134|p54;黄河机械厂第二分厂},但是,我只想要"黄河机械厂第二分厂"怎么办??多谢!!!!
回复

使用道具 举报

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2004-4-12 19:11:00 | 显示全部楼层
前面那一串应该是mtext中实现上下标功能的字符串,找找规律,去掉这些功能字符.
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-4-12 20:06:00 | 显示全部楼层
  1. Function Test(String1 As String)
  2. a = Split(String1, ";")
  3. Test = Left(a(1), Len(a(1)) - 1)
  4. End Function
回复

使用道具 举报

23

主题

30

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
122
发表于 2004-4-12 22:18:00 | 显示全部楼层
楼上大虾:我用了这个函数后,工程提示Split函数没有定义,能否告诉我Split函数是怎么回事,多谢大虾相助!
回复

使用道具 举报

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2004-4-12 22:47:00 | 显示全部楼层
没有3楼那么简单,如果你的字符串有";"怎么办.
可以用instr函数得到";"的位置,再用mid函数截取所需的字符串.
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-4-13 15:23:00 | 显示全部楼层
  1. Private Function Test(ByVal String1 As Variant) As String
  2. String2 = ";"
  3. a = Right(String1, Len(String1) - Len(String2) - InStr(String1, String2) + 1)
  4. Test = Left(a, Len(a) - 1)
  5. End Function
回复

使用道具 举报

23

主题

30

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
122
发表于 2004-4-14 14:53:00 | 显示全部楼层
多谢楼上大虾:兄弟我向你致敬!!!多谢!好了!呵呵!
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-15 16:18 , Processed in 0.357744 second(s), 66 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表