编程开发论坛 - Powered by Discuz! Board

标题: 郁闷ing [打印本页]

作者: jhbb 时间: 2006-6-14 23:51 标题: 郁闷ing

问题：从 text1.text 提取一些特定字符、数字？
1。直接InStr(1, text1.text,  string , vbTextCompare) 不行？？
   也许是text1.text 太长了
2。将text1.text 存入文档中，
      Open App.Path & "" For Input As #1
Do Until EOF(1)
Line Input #1, a
  mypos = InStr(1, a, "", vbTextCompare)
可以提取
3。因为text1.text是实时变化的，如果放如文档中，相应的的文档要经常建立、删除？？

大家给我提个意见，如何直接从text 中提取特定字符

作者: Nothing 时间: 2006-6-16 23:30

1、InStr不是提取，是查找，如果是提取，请使用MID，如果是一定格式的，请使用正则表达式。
可参考 http://www.programfan.com/article/showarticle.asp?id=2933
http://xf12.com/blog/more.asp?name=sky&id=19
2、你的不是存，是取，存可以用
Open App.Path & "\1.txt" For output As #1
print #1 ,text1.text
close #!
3、与1类似

作者: jhbb 时间: 2006-6-19 21:03

thank you ! 用正则表达式搞定了

欢迎光临编程开发论坛 (http://bbs.lihuasoft.net/)