[已解决]如何将分组的实数值转换到二维数组？谢谢！！！

131738

刚才发的提问帖，问题没有解决！重新说明，求答案

下面的实数值，以 " | " 为界,转换到二维数组, 因如何处理呢?  谢谢！！！

62，27|106，92|51,63

下面的方法有点笨了。。。看了 2  3 楼的回帖，好像异曲同工。。。呵呵。。。

#include <Array.au3>
$A = "62,27|106,92|51,63"
$AA = StringSplit ( $A, "|")
For $i = 1 To $AA[0]
        _ArrayDisplay($AA,'Debug~~~')
        $AAA = StringSplit ( $AA[$i], ",")
        _ArrayDisplay($AAA,'Debug~~~')
        MsgBox(0,"X",$AAA[1])        
        MsgBox(0,"y",$AAA[2])
Next

happytc

你的逗号倒底是中文的，还是英文的逗号，是打错了，还是真的需要：一会中文逗号，一会英文逗号
我先算你打错了吧，下面是“全是英文逗号下的解决方法：

#include <Array.au3>
Local $str, $Split, $Temp
$str = "62, 27|106, 92|51,63"

$Split = StringSplit($str, "|")
If IsArray($Split) Then
        Local $Count
        $Count = $Split[0]
        Local $Array[$Count + 1][2]
        For $i = 1 To $Count
                $Temp = StringSplit($Split[$i], ",")
                $Array[$i][0] = Number($Temp[1])
                $Array[$i][1] = Number($Temp[2])
        Next
EndIf

_ArrayDisplay($Array)

yhxhappy

我想楼主想搞清楚的是什么往现有的二维数组后添加行吧？ 借用一下楼上的代码

#include <Array.au3>
Local $str, $Split, $Temp
Dim $Array[1][2]
$str = "62, 27|106, 92|51,63"
 
$Split = StringSplit($str, "|")
If IsArray($Split) Then
        For $i = 1 To $Split[0]
                $Temp = StringSplit($Split[$i], ",")
                ReDim $Array[UBound($Array)+1][2]
                $Array[UBound($Array)-1][0] = Number($Temp[1])
                $Array[UBound($Array)-1][1] = Number($Temp[2])
        Next
EndIf
 $Array[0][0] = UBound($Array)-1
_ArrayDisplay($Array)

131738

你的逗号倒底是中文的，还是英文的逗号，是打错了，还是真的需要：一会中文逗号，一会英文逗号
我先算你打 ...
happytc 发表于 2011-3-10 23:07

谢谢！！！逗号错了，抱歉。。。再次谢谢您的代码！！！

131738

回复 3# yhxhappy

谢谢！！！！！