Board logo

标题: 郁闷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/) Powered by Discuz! 6.0.0