VB.NET中的List⽤法
Imports System.IO
Imports System.Data.OleDb
vb所有代码Public Class Form_mobilecodeFilter
Public list As New List(Of String)
Public mobilecode As New List(Of mobile)
Public loadlist As New List(Of plist)
'结构体
Public Structure mobile
Public mobilecode As String
Public Province As String
Public City As String
Public Card As String
End Structure
Public Structure plist
Public province As String
Public mobileNew As List(Of citylist)
End Structure
Public Structure citylist
Public city As String
Public mobilecontext As List(Of mobileLoadwritetxt)
End Structure
Public Structure mobileLoadwritetxt
Public context As String
Public mobilecode As String
Public Province As String
Public City As String
Public Card As String
End Structure
Private Sub Button_Importmobilecode_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button_Importmobilecode.Click
Dim fileName As String
OpenFileDialog_ImportMobileCode.Filter = "⽂本⽂件(*.txt)|*.txt"
OpenFileDialog_ImportMobileCode.ShowDialog()
fileName = OpenFileDialog_ImportMobileCode.FileName
TextBox_Importfilepath.Text = fileName
Dim path As String
Dim line As String = String.Empty
path = TextBox_Importfilepath.Text
Try
FileOpen(1, path, OpenMode.Input)
Catch ex As Exception
FileClose(1)
FileOpen(1, path, OpenMode.Input)
End Try
line = ""
Do While Not EOF(1)
Input(1, line)
If line.Trim <> "" Then
list.Add(line)
End If
Loop
FileClose(1)
End Sub
Private Sub Button_Checkout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Checkout.Click        Dim fileName As String
Dim result As DialogResult = FolderBrowserDialog_download.ShowDialog()
fileName = FolderBrowserDialog_download.SelectedPath
Dim i, j, k As Integer
Dim cl As citylist
Dim mo As mobileLoadwritetxt
For i = 0 To loadlist.Count - 1
Dim txtpath As String = fileName & "\" & loadlist.Item(i).province
System.IO.Directory.CreateDirectory(txtpath)
For j = 0 To loadlist.Item(i).mobileNew.Count - 1
cl = loadlist.Item(i).mobileNew.Item(j)
Dim writefile As New StreamWriter(txtpath & "\" & cl.city & ".txt")
For k = 0 bilecontext.Count - 1
mo = cl.mobilecontext.Item(k)
Dim context As String = mo.context
Dim province As String = mo.Province
Dim City As String = mo.City
Dim mobilecode As String = mo.mobilecode
Dim Card As String = mo.Card
Dim writecontext As String = ""
If CheckBox_ID.Checked Then
writecontext = writecontext & k 1 & "  "
End If
If CheckBox_mobilecode.Checked Then
writecontext = writecontext & context & "    "
End If
If CheckBox_province.Checked Then
writecontext = writecontext & province & "    "
End If
If CheckBox_city.Checked Then
writecontext = writecontext & City & "    "
End If
If CheckBox_haoduan.Checked Then
writecontext = writecontext & mobilecode & "    "
End If
If CheckBox_execute.Checked Then
writecontext = writecontext & Card
End If
writefile.WriteLine(writecontext)
Next
writefile.Flush()
writefile.Close()
Next
Next
TextBox_Importfilepath.Text = ""
MessageBox.Show("完成")
End Sub
Private Sub Button_closeMe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_closeMe.Click        Me.Close()
End Sub
Public Sub loadmobile()
Dim SQLGroupStr = "select * from mobile"
Dim CString As String = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\ctc-nft.mdb;Persist Security Info=True"        Dim con As New OleDbConnection(CString)
Dim com As New OleDbCommand()
com.Connection = con
con.Open()
com.CommandType = CommandType.Text
com.CommandText = SQLGroupStr
Dim rs As OleDbDataReader = com.ExecuteReader()
While (rs.Read)
Dim m As New mobile
m.Province = rs.GetString(1)
m.City = rs.GetString(2)
m.Card = rs.GetString(3)
mobilecode.Add(m)
End While
con.Close()
End Sub
Private Sub Button_manage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_manage.Click        loadmobile()
MessageBox.Show("在处理中可能要等⼏分钟，请稍等.........", "提⽰")
Dim i, j As Integer
Dim a As Integer = 1
Dim m As mobile
For i = 0 To mobilecode.Count - 1
m = mobilecode.Item(i)
For j = 0 To list.Count - 1
bilecode.ToString.Equals(list.Item(j).ToString.Substring(0, 7)) Then
If a = 1 Then
a = a 1
Dim pl As New plist
pl.province = mobilecode.Item(i).Province
Dim lm As New citylist
lm.city = mobilecode.Item(i).City
Dim mo As New mobileLoadwritetxt
mo.Card = mobilecode.Item(i).Card
mo.City = mobilecode.Item(i).City
mo.Province = mobilecode.Item(i).Province
loadlist.Add(pl)
Else
Dim sp As String = isProvince(loadlist, mobilecode.Item(i).Province)
Dim str() As String = sp.Split(" ")
Dim flagprovince As String = str(0)
Dim flag As Boolean
If flagprovince.ToString.Equals("1") Then
flag = True
Else
flag = False
End If
If flag = True Then
Dim sc As String = iscity(loadlist, mobilecode.Item(i).City)
Dim str1() As String = sc.Split(" ")
Dim flagcity As Boolean
If str1(0).ToString.Equals("1") Then
flagcity = True
Else
flagcity = False
End If
If flagcity = True Then
Dim mob As New mobileLoadwritetxt
mob.Card = mobilecode.Item(i).Card
mob.City = mobilecode.Item(i).City
mob.Province = mobilecode.Item(i).Province
loadlist.Item(str(1)).mobileNew.Item(str1(1)).mobilecontext.Add(mob)
Else
Dim cl As New citylist
cl.city = mobilecode.Item(i).City
Dim mi As New mobileLoadwritetxt
mi.Card = mobilecode.Item(i).Card
mi.City = mobilecode.Item(i).City
mi.Province = mobilecode.Item(i).Province
loadlist.Item(str(1)).mobileNew.Add(cl)
End If
Else
Dim pl As New plist
pl.province = mobilecode.Item(i).Province
Dim lm As New citylist
lm.city = mobilecode.Item(i).City
Dim mo As New mobileLoadwritetxt
mo.Card = mobilecode.Item(i).Card
mo.City = mobilecode.Item(i).City
mo.Province = mobilecode.Item(i).Province
loadlist.Add(pl)
End If
End If
End If
Next
Next
MessageBox.Show("请⽴即导⼊，当关闭此窗⼝数据就会销毁", "提⽰")    End Sub
Public Function isProvince(ByVal list As List(Of plist), ByVal str As String)        Dim i As Integer
For i = 0 To list.Count - 1
If str.ToString.Equals(list.Item(i).province.ToString) Then
Return 1 & " " & i
End If
Next
Return 0 & " " & i - 1
End Function
Public Function iscity(ByVal list As List(Of plist), ByVal str As String)
Dim i, j As Integer
Dim pl As plist
Dim cl As citylist
For i = 0 To list.Count - 1
For j = 0 bileNew.Count - 1
cl = pl.mobileNew.Item(j)
If cl.city.ToString.Equals(str) Then
Return 1 & " " & j
End If
Next
Next
Return 0 & " " & j - 1
End Function
End Class
'此段代码现给有⼀定编程基础的朋友

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。