请教如何读取文本内的内容和 简洁-高级开关按钮的实现!

zz999

回复 15# 顽固不化


    是的   顽固大哥
就是    VolumeLabe   那一栏   我不知道用正则怎么取出来
那个字符不定,可能是任何字符

顽固不化

1. $FHD=FileOpen("t.txt",0)
   
2. $line=FileReadLine($FHD)
   
3. While 1
   
4.         $line=FileReadLine($FHD)
   
5.         If @error=-1 Then ExitLoop
   
6.     $STRs=StringRegExp($line,"(\S+)\s+\d+\s+\d+\s*$",3)
   
7.         MsgBox(0,0,$STRs[0])
   
8. WEnd

复制代码

t.txt内容：
Drive         No.      Active       VolumeLabe    Total (Mb)     Free (Mb)
C:            1:1          A               111             10226            5636   
D:            1:2                           照片            20471           13914  
E:            1:3                           fdsaf           20471           10350  
F:            1:4                           工作            20471           19619  
G:           1:5                         本地磁盘         20471            9229

没考虑卷标名中有空格的情况哈。。

顽固不化

实际上读取硬盘的卷标也很简单的。

1. $DRIs=DriveGetDrive ( "FIXED" )
   
2. If Not @error Then
   
3.         For $i=1 to $DRIs[0]
   
4.                 $VL=DriveGetLabel($DRIs[$i]&"")
   
5.                 If $VL="" Then $VL="本地磁盘"
   
6.                 MsgBox(0,0,"分区"&StringUpper($DRIs[$i])&"的卷标是“"&$VL&"”")
   
7.         Next
   
8. EndIf

复制代码

boy-119

我做这个有点难。。。还要学习了。。。

friendtasy

这里好多高手啊