VB.NET中使用List

VB.NET中的List用法

  1 Imports System.IO
  2 Imports System.Data.OleDb
  3 Public Class Form_mobilecodeFilter
  4     Public list As New List(Of String)
  5     Public mobilecode As New List(Of mobile)
  6     Public loadlist As New List(Of plist) 
  7 
  8     '结构体 
  9 
 10     Public Structure mobile
 11         Public mobilecode As String
 12         Public Province As String
 13         Public City As String
 14         Public Card As String
 15     End Structure 
 16 
 17     Public Structure plist
 18         Public province As String
 19         Public mobileNew As List(Of citylist)
 20     End Structure 
 21 
 22     Public Structure citylist
 23         Public city As String
 24         Public mobilecontext As List(Of mobileLoadwritetxt)
 25     End Structure 
 26 
 27     Public Structure mobileLoadwritetxt
 28         Public context As String
 29         Public mobilecode As String
 30         Public Province As String
 31         Public City As String
 32         Public Card As String
 33     End Structure 
 34 
 35     Private Sub Button_Importmobilecode_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Importmobilecode.Click
 36         Dim fileName As String
 37         OpenFileDialog_ImportMobileCode.Filter = "文本文件(*.txt)|*.txt"
 38         OpenFileDialog_ImportMobileCode.ShowDialog()
 39         fileName = OpenFileDialog_ImportMobileCode.FileName
 40         TextBox_Importfilepath.Text = fileName 
 41 
 42         Dim path As String
 43         Dim line As String = String.Empty
 44         path = TextBox_Importfilepath.Text
 45         Try
 46             FileOpen(1, path, OpenMode.Input)
 47         Catch ex As Exception
 48             FileClose(1)
 49             FileOpen(1, path, OpenMode.Input)
 50         End Try
 51         line = "" 
 52 
 53         Do While Not EOF(1)
 54             Input(1, line)
 55             If line.Trim <> "" Then
 56                 list.Add(line)
 57             End If
 58         Loop
 59         FileClose(1)
 60     End Sub 
 61 
 62     Private Sub Button_Checkout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Checkout.Click 
 63 
 64         Dim fileName As String
 65         Dim result As DialogResult = FolderBrowserDialog_download.ShowDialog()
 66         fileName = FolderBrowserDialog_download.SelectedPath
 67         Dim i, j, k As Integer
 68         Dim cl As citylist
 69         Dim mo As mobileLoadwritetxt
 70         For i = 0 To loadlist.Count - 1
 71             Dim txtpath As String = fileName & "\" & loadlist.Item(i).province
 72             System.IO.Directory.CreateDirectory(txtpath)
 73             For j = 0 To loadlist.Item(i).mobileNew.Count - 1
 74                 cl = loadlist.Item(i).mobileNew.Item(j)
 75                 Dim writefile As New StreamWriter(txtpath & "\" & cl.city & ".txt")
 76                 For k = 0 To cl.mobilecontext.Count - 1
 77                     mo = cl.mobilecontext.Item(k)
 78                     Dim context As String = mo.context
 79                     Dim province As String = mo.Province
 80                     Dim City As String = mo.City
 81                     Dim mobilecode As String = mo.mobilecode
 82                     Dim Card As String = mo.Card
 83                     Dim writecontext As String = ""
 84                     If CheckBox_ID.Checked Then
 85                         writecontext = writecontext & k 1 & "   "
 86                     End If
 87                     If CheckBox_mobilecode.Checked Then
 88                         writecontext = writecontext & context & "     "
 89                     End If
 90                     If CheckBox_province.Checked Then
 91                         writecontext = writecontext & province & "    "
 92                     End If
 93                     If CheckBox_city.Checked Then
 94                         writecontext = writecontext & City & "    "
 95                     End If
 96                     If CheckBox_haoduan.Checked Then
 97                         writecontext = writecontext & mobilecode & "    "
 98                     End If
 99                     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.mobilecode = rs.GetString(0)
             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
                 If m.mobilecode.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.context = list.Item(j)
                         mo.mobilecode = mobilecode.Item(i).mobilecode
                         mo.Province = mobilecode.Item(i).Province
                         lm.mobilecontext = New List(Of mobileLoadwritetxt)
                         lm.mobilecontext.Add(mo)
                         pl.mobileNew = New List(Of citylist)
                         pl.mobileNew.Add(lm)
                         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.context = list.Item(j)
                                 mob.mobilecode = mobilecode.Item(i).mobilecode
                                 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.context = list.Item(j)
                                 mi.mobilecode = mobilecode.Item(i).mobilecode
                                 mi.Province = mobilecode.Item(i).Province
                                 cl.mobilecontext = New List(Of mobileLoadwritetxt)
                                 cl.mobilecontext.Add(mi)
                                 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.context = list.Item(j)
                             mo.mobilecode = mobilecode.Item(i).mobilecode
                             mo.Province = mobilecode.Item(i).Province
                             lm.mobilecontext = New List(Of mobileLoadwritetxt)
                             lm.mobilecontext.Add(mo)
                             pl.mobileNew = New List(Of citylist)
                             pl.mobileNew.Add(lm)
                             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
         pl.mobileNew = New List(Of citylist)
         Dim cl As citylist
         For i = 0 To list.Count - 1
             pl.mobileNew = list.Item(i).mobileNew
             For j = 0 To pl.mobileNew.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 
 

 

     '此段代码现给有一定编程基础的朋友

成功者找方法，失败者找借口！