如何读取txt中指定位置字符

qdhouri · 发表于 2009-11-3 19:11:26

本帖最后由 qdhouri 于 2009-11-3 22:49 编辑

txt内容如下
052/020/a.exe

如何读取052/020这个几个字符？

netegg · 发表于 2009-11-3 19:43:19

while 1
  if stringright($text, 1)= "/" then
   exitloop
  else
   $text = stringtrimright($text, 1)
  endif
wend
msgbox("","", stringtrimright($text, 1))

afan · 发表于 2009-11-3 21:24:58

$text = '052/020/a.exe'
$ok = StringRegExp($text, '(.+)/.*', 3) 
If @error = 0 Then MsgBox(0, 0, $ok[0])

qdhouri · 发表于 2009-11-3 22:06:04

while 1
  if stringright($text, 1)= "/" then
   exitloop
  else
   $text = stringtrimright($text, 1)
  endif
wend
msgbox("","", stringtrimright($text, 1))
netegg 发表于 2009-11-3 19:43

超级感谢~

qdhouri · 发表于 2009-11-3 22:06:21

$text = '052/020/a.exe'
$ok = StringRegExp($text, '(.+)/.*', 3)
If @error = 0 Then MsgBox(0, 0, $ok[0])
afan 发表于 2009-11-3 21:24

超级感谢~

xrbenbeba · 发表于 2009-11-3 22:11:03

只是无意路过罢了

qdhouri · 发表于 2009-11-3 22:37:17

再问下为什么换成 \ 就不好用了啊？

$text = '052\020\a.exe'
$ok = StringRegExp($text, '(.+)\.*', 3)
If @error = 0 Then MsgBox(0, 0, $ok[0])

newx · 发表于 2009-11-3 23:31:15

本帖最后由 newx 于 2009-11-3 23:32 编辑

$text = '052\020\a.exe'
$ok = StringRegExp($text, '(.*)\\(.*)\\(.*)', 3) 
If @error = 0 Then MsgBox(0, 0, $ok[0])

lenovolove · 发表于 2011-7-28 19:07:34

呵。。。。不错。论坛里东西真全。拿走了

au3x · 发表于 2012-4-21 22:24:44

学习........................

		自动登录	找回密码
密码			加入