赋值问题，大家帮下我啊

lchl0588

回复 15# afan
根据你的启示：

Dim $name, $user, $password
Local $a = FileOpen("d:/本机宽带密码和网卡IP.txt", 0)
$ts = TimerInIt();盗用你的代码 
While 1 
 $b = FileReadLine($a)
 If StringInStr($b,"宽带帐号                         :")<>0 Then
$user=StringSplit($b,":")[2]         
  EndIf
  If StringInStr($b,"宽带密码                         :")<>0 Then
          $password=StringSplit($b,":")[2]
  EndIf
  If StringInStr($b,"PPP adapter")<>0 Then
          $name=StringMid(StringSplit($b,":")[1],12)
  EndIf
  If $Name Then ExitLoop
   WEnd
   FileClose($a)
   $te = Round(TimerDiff($ts), 3) & ' ms' ;盗用你的代码
MsgBox(0,$te,$name&@CR&$user&@CR&$password)

不知道是否合格
不过显示时间是盗用你的代码

afan

$user=StringSplit($b,":")[2]lchl0588 发表于 2012-6-18 16:29

    不带这样的… 你自己没测试过吗？ “$user=StringSplit($b,":")[2]”这样的语法我能看懂，但Au3解释不了~

lchl0588

回复 17# afan
测试过，只不过只省略变量转换而已

afan

回复  afan
测试过，只不过只省略变量转换而已
lchl0588 发表于 2012-6-18 16:54

    能通过？

lchl0588

回复 19# afan
能啊，上图吧！

afan

回复 20# lchl0588


    惊奇。。。AU3 什么时候改成可以这样直接使用表达式数组元素的？

lchl0588

回复 21# afan
本来是一步一步不断纠正写代码的，到最后给整合成这样了

哦？ 不要忘记前面有个变量哦

shqf

我试了一下，说$user=StringSplit($b,":")[2] 表达式错误唉。我的autoit是3.3.9.0 第一汉化版。敢问楼上用的是什么版本？

lchl0588

回楼上，20楼中图有显示哦

user3000

回复 21# afan

是不是有'求新'的欲望了?

其实我也很惊奇, 还真能这样用了啊!

试了下, SVN的 3.3.9.4 也可以运行... 好像有点好玩!

Dim $name, $user, $password
Local $b = 'aa:bb:cc'
$user=StringSplit($b,":")[1]         
$password=StringSplit($b,":")[2]
$name=StringSplit($b,":")[3]
MsgBox(0,'',$name&@CR&$user&@CR&$password)

afan

回复  afan

是不是有'求新'的欲望了?

其实我也很惊奇, 还真能这样用了啊!
user3000 发表于 2012-6-18 19:30

    我试了下3394，确实可以通过。 不过这样写应该不好，没有核实返回值，如果表达式非数组或数组超出就崩了。没打算求新，够用就好。：）

魔导

数组元素真可以这样用？小弟这边不灵啊，

fhqbbfcu2050

这么复杂的代码我还写不出来....厉害

netegg

回复 26# afan
貌似确实可以，超不了界，后面的索引只要小于ubound(stringsplit())-1就行了
不过说实话，这语法或者书写格式怎么看怎么别扭
还有，stringsplit里的分割符必须存在，否则直接报错

ssmusic

认真学习了！！！