感謝各位的幫忙再請教各問題如何將內文的數值轉成Array呢
如何將下列的數值轉換成陣列呢我想要把下列的數值直接用陣列的方式整理出來
真的需要各位教導一下
========================================
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;; 以行为单位分割? 用StringSplit 的方式嗎
這樣只能一次一行但是如果後面我要去做個別數字的運算不知道怎麼處理了可以請教各位嗎 是这个意思?
#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
For $i=0 To UBound($Test)-1
$str_spli=StringSplit(StringTrimRight($Test[$i],3),';;',1)
ReDim $ruesl[$str_spli]
For $n=1 To $str_spli
$ruesl[$i][$n-1]=$str_spli[$n]
Next
Next
_ArrayDisplay($ruesl)
感謝3mile
我消化一下您指的意思!!
真的很感謝喔
页:
[1]