【已解决】读取到的数字字符串处理问题

haodd · 发表于 2010-9-4 19:39:43

本帖最后由 haodd 于 2010-9-5 00:02 编辑

读取到配置文件的字符串如何在前面加 0

[num]
AA = 001 - 100
BB = 001 - 300

要输出

AA001
AA002
……
……
AA100
BB001
BB002
……
……
BB300

haodd · 发表于 2010-9-4 20:45:09

Dim $i,$head
$info=IniReadSection ("config.ini","num")
$msg = StringSplit($info[1][1],"-")
For $head = 1 To $msg[2]
$msg[1] += $i 
$i = 1
Switch $msg[1]
        Case        $msg[1] <= 9 
                $msg[1]  = "00" & $msg[1]
        Case   $msg[1] <= 99 
                $msg[1] = "0" & $msg[1]

EndSwitch
MsgBox(0,$msg[1],$msg[1])
Next

haodd · 发表于 2010-9-4 20:45:45

呵呵方法有点烂

haodd · 发表于 2010-9-4 21:20:00

#include<array.au3>
Dim $dis,$head,$end,$i
$info=IniReadSection ("config.ini","num")
$msg = StringSplit($info[1][1],"-")
$arrlen = $msg[2] - $msg[1] + 1
Dim $arr[$arrlen]
For $head = 0 To $msg[2] - 1
$msg[1] += $i 
$i = 1
Switch $msg[1]
        Case        $msg[1] <= 9 
                $arr[$head] =  $info[1][0] & "00" & $msg[1]
        Case   $msg[1] <= 99 
                $arr[$head] =  $info[1][0] & "0" & $msg[1]
        Case Else
                $arr[$head] = $info[1][0] &  $msg[1]
EndSwitch
Next
_ArrayDisplay($arr)

3mile · 发表于 2010-9-4 21:20:27

#include <array.au3>

Dim $i, $head
Local $str = ''
$info = IniReadSection("config.ini", "num")
For $i = 1 To UBound($info, 1) - 1
        $msg = StringSplit($info[$i][1], "-")
        For $n = StringFormat('%01d', $msg[1]) To StringFormat('%01d', $msg[2])
                $str &= $info[$i][0] & StringFormat('%03d', $n) & @TAB;可以换成@crlf
        Next
Next
MsgBox(0, 0, $str)

haodd · 发表于 2010-9-4 21:26:31

为什么当配置文件为

AA = 008 - 100

出错了呢？

AA = 001 - 100 没有报错能正常打印数组

haodd · 发表于 2010-9-4 21:28:03

$arr[$head] = $info[1][0] & $msg[1]
^ ERROR

haodd · 发表于 2010-9-4 21:31:01

数组下标溢出~

我太大头鬼了了

用户名		自动登录	找回密码
密码			加入

[AU3基础] 【已解决】读取到的数字字符串处理问题

相关帖子

评分