感謝各位的幫忙再請教各問題如何將內文的數值轉成Array呢

jimmymayjer

如何將下列的數值轉換成陣列呢
我想要把下列的數值直接用陣列的方式整理出來
真的需要各位教導一下
========================================
39 拖下一期webexit
099089;;47;;28;;16;;05;;08;;13;;46;;
099082;;31;;08;;09;;20;;10;;40;;25;;
099077;;36;;08;;02;;29;;42;;44;;22;;
099076;;01;;22;;45;;39;;35;;38;;08;;
099064;;24;;25;;40;;28;;03;;38;;11;;
10 拖下一期webexit
099084;;36;;12;;21;;35;;27;;37;;08;;
099083;;46;;28;;30;;01;;20;;11;;10;;
099074;;19;;44;;26;;02;;01;;22;;03;;
099064;;24;;25;;40;;28;;03;;38;;11;;
099054;;05;;21;;48;;43;;25;;11;;31;;
37 拖下一期webexit
099085;;01;;18;;49;;13;;04;;08;;03;;
099080;;14;;16;;32;;21;;43;;35;;49;;
099072;;04;;08;;43;;16;;03;;41;;22;;
03 拖下一期webexit
099087;;27;;19;;13;;04;;28;;26;;33;;
099086;;03;;43;;22;;35;;14;;44;;26;;
099082;;31;;08;;09;;20;;10;;40;;25;;
099079;;23;;37;;12;;38;;48;;08;;20;;
099075;;24;;35;;12;;39;;13;;34;;14;;
099073;;41;;10;;18;;42;;14;;49;;24;;
099065;;36;;02;;22;;30;;48;;13;;09;;
099063;;19;;47;;22;;28;;10;;21;;39;;
099061;;14;;11;;08;;36;;12;;23;;45;;

3mile

以行为单位分割?

jimmymayjer

用StringSplit 的方式嗎
這樣只能一次一行但是如果後面我要去做個別數字的運算不知道怎麼處理了可以請教各位嗎

3mile

是这个意思?

#include <Array.au3>
Local $Str = _
        '39 拖下一期webexit' & @CRLF & _
        '099089;;47;;28;;16;;05;;08;;13;;46;;' & @CRLF & _
        '099082;;31;;08;;09;;20;;10;;40;;25;;' & @CRLF & _
        '099077;;36;;08;;02;;29;;42;;44;;22;;' & @CRLF & _
        '099076;;01;;22;;45;;39;;35;;38;;08;;' & @CRLF & _
        '099064;;24;;25;;40;;28;;03;;38;;11;;' & @CRLF & _
        '10 拖下一期webexit' & @CRLF & _
        '099084;;36;;12;;21;;35;;27;;37;;08;;' & @CRLF & _
        '099083;;46;;28;;30;;01;;20;;11;;10;;' & @CRLF & _
        '099074;;19;;44;;26;;02;;01;;22;;03;;' & @CRLF & _
        '099064;;24;;25;;40;;28;;03;;38;;11;;' & @CRLF & _
        '099054;;05;;21;;48;;43;;25;;11;;31;;' & @CRLF & _
        '37 拖下一期webexit' & @CRLF & _
        '099085;;01;;18;;49;;13;;04;;08;;03;;' & @CRLF & _
        '099080;;14;;16;;32;;21;;43;;35;;49;;' & @CRLF & _
        '099072;;04;;08;;43;;16;;03;;41;;22;;' & @CRLF & _
        '03 拖下一期webexit' & @CRLF & _
        '099087;;27;;19;;13;;04;;28;;26;;33;;' & @CRLF & _
        '099086;;03;;43;;22;;35;;14;;44;;26;;' & @CRLF & _
        '099082;;31;;08;;09;;20;;10;;40;;25;;' & @CRLF & _
        '099079;;23;;37;;12;;38;;48;;08;;20;;' & @CRLF & _
        '099075;;24;;35;;12;;39;;13;;34;;14;;' & @CRLF & _
        '099073;;41;;10;;18;;42;;14;;49;;24;;' & @CRLF & _
        '099065;;36;;02;;22;;30;;48;;13;;09;;' & @CRLF & _
        '099063;;19;;47;;22;;28;;10;;21;;39;;' & @CRLF & _
        '099061;;14;;11;;08;;36;;12;;23;;45;;' & @CRLF
MsgBox(0, '原字符串', $Str)
Local $Test = StringRegExp($str, '\d+\;\;.*', 3)
Local $ruesl[UBound($Test)][2]
For $i=0 To UBound($Test)-1
    $str_spli=StringSplit(StringTrimRight($Test[$i],3),';;',1)    
    ReDim $ruesl[UBound($Test)][$str_spli[0]]
    For $n=1 To $str_spli[0]
        $ruesl[$i][$n-1]=$str_spli[$n]
    Next
Next
_ArrayDisplay($ruesl)

jimmymayjer

感謝3mile
我消化一下您指的意思!!
真的很感謝喔