擺脫VB列表框中的重複

Question

使用ASP/VB，我試圖擺脫來自XML文檔的列表框中的一些重複。

對不起，如果這是一個愚蠢的問題，我是新來的。

我試過各種東西，但沒有任何工作。這是代碼 - 感謝您的任何幫助/幫助！

​​

Answer 1

有可能是一個更有效的方法，但這將工作。

Function getAssets(ByVal siteid As String) As String   
Dim oAssets As New Xteam.XteamWebService  
Dim strAssets As String = ""  
Dim oDoc As New XmlDocument  ' 
Dim oNode As XmlNode   
strAssets = oAssets.ReadHAssetCodes(siteid)   
oDoc.LoadXml(strAssets) 
Dim strAryUniqueValues as string() 
Dim strUniqueValues as string = "" 
Dim i as int = 0 
Dim strSearchPair as string 
For Each Node As XmlNode In oDoc.SelectSingleNode("XteamAssets") 
    strSearchPair = "~" & Node("hassetdescription").InnerText & "/" & Node("hassetcode").InnerText & "~" 
    ' see if these values have been included already, if not then add them 
    if instr(strUniqueValues,strSearchPair) = -1 then   
     strAryUniqueValues(i) = strSearchPair 
     strUniqueValues = strUniqueValues & strAryUniqueValues(i)  
     i = i + 1 
    end if 
Next 
'now loop back through and build your listbox 
Dim strAryPair as string() 
For each strPair in strAryUniqueValues 
    strAryPair = split(strPair,"/") 
    lstHAssets.Items.Add(New ListItem(Replace(strAryPair(0),"~",""),Replace(strAryPair(1),"~","")) 
Next 
    lstHAssets.Items.Insert(0, "--Please Select--")   
    Return "ToSender"  
End Function