我需要對VB.Net等價的數(shù)組進(jìn)行排序ksorton PHP。我嘗試比較它們，但結(jié)果不同。這是我的PHP 代碼：<?php$parameter['data[1000].isi']= '0';$parameter['data[111].isi']= '0';$parameter['data[112].isi']= '0';$parameter['data[100].isi']= '0';$parameter['data[3].isi']= '0';$parameter['data[2].isi']= '0';$parameter['data[1].isi']= '0';$parameter['data[0].isi']= '0';ksort($parameter);foreach($parameter as $key => $val){ echo $key." = ".$val."<br />";}?>該輸出云：data[0].itemNo = 0data[1000].isi = 0data[100].isi = 0data[111].isi = 0data[112].isi = 0data[1].isi = 0data[2].isi = 0data[3].isi = 0這是我的VB.NET 代碼： Dim isi As New Dictionary(Of String, String) isi.Add("data[1000].isi", 0) isi.Add("data[111].isi", 0) isi.Add("data[112].isi", 0) isi.Add("data[100].isi", 0) isi.Add("data[3].isi", 0) isi.Add("data[2].isi", 0) isi.Add("data[1].isi", 0) isi.Add("data[0].isi", 0) Dim coba As New ArrayList() Dim str, strisi As String For Each kvp As KeyValuePair(Of String, String) In isi coba.Add(kvp.Key & "=" & kvp.Value) Next coba.Sort() For Each apa As String In coba str = str & "&" & apa Next TextBox1.Text = str該輸出云：&data[0].isi=0&data[1].isi=0&data[100].isi=0&data[1000].isi=0&data[111].isi=0&data[1111].isi=0&data[112].isi=0&data[2].isi=0&data[3].isi=0兩種排序的輸出不同。我需要使VB.Net輸出與PHP輸出相同。這樣做很熱？
1 回答
元芳怎么了
TA貢獻(xiàn)1798條經(jīng)驗 獲得超7個贊
如果您使用的是 VB 2005 或更高版本，則不應(yīng)使用ArrayList. 改用 a List(Of String)。然后你可以改變這個：
coba.Sort()
對此：
coba.Sort(Function(x, y) String.Compare(x, y, StringComparison.Ordinal))
ArrayList如果您出于某種原因確實必須使用 ，您仍然可以使用 做類似的事情，但這涉及定義您自己的類：
Public Class OrdinalStringComparer
Implements IComparer
Public Function Compare(x As Object, y As Object) As Integer Implements IComparer.Compare
Return String.Compare(DirectCast(x, String), DirectCast(y, String), StringComparison.Ordinal)
End Function
End Class
然后在調(diào)用時傳遞一個實例Sort：
coba.Sort(New OrdinalStringComparer)
請注意，如果您想知道序數(shù)比較是如何執(zhí)行的以及替代方案是什么，您應(yīng)該查看StringComparison枚舉的文檔。
- 1 回答
- 0 關(guān)注
- 174 瀏覽
添加回答
舉報
0/150
提交
取消