Private Sub Command1_Click() Dim strLine() As String, strItem() As String, i As Long If Not List1.Sorted Or List2.Sorted Then MsgBox "Please set List1.Sorted = True and List2.Sorted = False"
Exit Sub End If
strLine = Split(Text1, vbCrLf)
List1.Clear For i = 0 To UBound(strLine) strItem = Split(strLine(i), " ") strItem(1) = Right("000000" & strItem(1), 6) strItem(2) = Right("000000" & strItem(2), 6) List1.AddItem Join(strItem, " ") Next i
Dim strLine() As String, strItem() As String, i As Long If Not List1.Sorted Or List2.Sorted Then
MsgBox "Please set List1.Sorted = True and List2.Sorted = False"
Exit Sub
End If
strLine = Split(Text1, vbCrLf)
List1.Clear
For i = 0 To UBound(strLine)
strItem = Split(strLine(i), " ")
strItem(1) = Right("000000" & strItem(1), 6)
strItem(2) = Right("000000" & strItem(2), 6)
List1.AddItem Join(strItem, " ")
Next i
List2.Clear
For i = 0 To List1.ListCount - 1
strItem = Split(strLine(i), " ")
strItem(1) = Val(strItem(1))
strItem(2) = Val(strItem(2))
List2.AddItem Join(strItem, " ")
Next i
End SubPrivate Sub Form_Load()
Text1 = "0.99 218.36 198.47 " & vbCrLf & _
"0.99 219.03 198.56" & vbCrLf & _
"0.99 220.37 198.72" & vbCrLf & _
"0.99 299.99 199.00" & vbCrLf & _
"1.99 220.37 198.72" & vbCrLf & _
"1.99 219.03 198.56" & vbCrLf & _
"1.99 218.36 198.47" & vbCrLf & _
"1.99 217.69 198.37" & vbCrLf & _
"1.99 213.67 197.59" & vbCrLf & _
"2.99 94.37 99.23" & vbCrLf & _
"2.99 95.04 99.28" & vbCrLf & _
"2.99 96.38 99.41" & vbCrLf & _
"2.99 97.05 99.48" & vbCrLf & _
"2.99 98.39 99.65"
End Sub