设为首页收藏本站
开启辅助访问

VB.NET中使用List

 您所在的位置：网站首页 › vb里的list › VB.NET中使用List

VB.NET中使用List

#VB.NET中使用List| 来源: 网络整理| 查看: 265

 

  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 100                         writecontext = writecontext & Card 101                     End If 102                     writefile.WriteLine(writecontext) 103                 Next 104                 writefile.Flush() 105                 writefile.Close() 106             Next 107         Next 108         TextBox_Importfilepath.Text = "" 109         MessageBox.Show("完成")  110  111     End Sub  112  113     Private Sub Button_closeMe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_closeMe.Click 114         Me.Close() 115     End Sub  116  117     Public Sub loadmobile() 118         Dim SQLGroupStr = "select * from mobile" 119         Dim CString As String = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\ctc-nft.mdb;Persist Security Info=True" 120         Dim con As New OleDbConnection(CString) 121         Dim com As New OleDbCommand() 122         com.Connection = con 123         con.Open() 124         com.CommandType = CommandType.Text 125         com.CommandText = SQLGroupStr 126         Dim rs As OleDbDataReader = com.ExecuteReader() 127         While (rs.Read) 128             Dim m As New mobile 129             m.mobilecode = rs.GetString(0) 130             m.Province = rs.GetString(1) 131             m.City = rs.GetString(2) 132             m.Card = rs.GetString(3) 133             mobilecode.Add(m) 134         End While 135         con.Close() 136     End Sub  137  138     Private Sub Button_manage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_manage.Click 139         loadmobile() 140         MessageBox.Show("在处理中可能要等几分钟，请稍等", "提示") 141         Dim i, j As Integer 142         Dim a As Integer = 1 143         Dim m As mobile 144         For i = 0 To mobilecode.Count - 1 145             m = mobilecode.Item(i) 146             For j = 0 To list.Count - 1 147                 If m.mobilecode.ToString.Equals(list.Item(j).ToString.Substring(0, 7)) Then 148                     If a = 1 Then 149                         a = a 1 150                         Dim pl As New plist 151                         pl.province = mobilecode.Item(i).Province 152                         Dim lm As New citylist 153                         lm.city = mobilecode.Item(i).City 154                         Dim mo As New mobileLoadwritetxt 155                         mo.Card = mobilecode.Item(i).Card 156                         mo.City = mobilecode.Item(i).City 157                         mo.context = list.Item(j) 158                         mo.mobilecode = mobilecode.Item(i).mobilecode 159                         mo.Province = mobilecode.Item(i).Province 160                         lm.mobilecontext = New List(Of mobileLoadwritetxt) 161                         lm.mobilecontext.Add(mo) 162                         pl.mobileNew = New List(Of citylist) 163                         pl.mobileNew.Add(lm) 164                         loadlist.Add(pl) 165                     Else 166                         Dim sp As String = isProvince(loadlist, mobilecode.Item(i).Province) 167                         Dim str() As String = sp.Split(" ") 168                         Dim flagprovince As String = str(0) 169                         Dim flag As Boolean 170                         If flagprovince.ToString.Equals("1") Then 171                             flag = True 172                         Else 173                             flag = False 174                         End If 175                         If flag = True Then 176                             Dim sc As String = iscity(loadlist, mobilecode.Item(i).City) 177                             Dim str1() As String = sc.Split(" ") 178                             Dim flagcity As Boolean 179                             If str1(0).ToString.Equals("1") Then 180                                 flagcity = True 181                             Else 182                                 flagcity = False 183                             End If 184                             If flagcity = True Then 185                                 Dim mob As New mobileLoadwritetxt 186                                 mob.Card = mobilecode.Item(i).Card 187                                 mob.City = mobilecode.Item(i).City 188                                 mob.context = list.Item(j) 189                                 mob.mobilecode = mobilecode.Item(i).mobilecode 190                                 mob.Province = mobilecode.Item(i).Province 191                                 loadlist.Item(str(1)).mobileNew.Item(str1(1)).mobilecontext.Add(mob) 192                             Else 193                                 Dim cl As New citylist 194                                 cl.city = mobilecode.Item(i).City 195                                 Dim mi As New mobileLoadwritetxt 196                                 mi.Card = mobilecode.Item(i).Card 197                                 mi.City = mobilecode.Item(i).City 198                                 mi.context = list.Item(j) 199                                 mi.mobilecode = mobilecode.Item(i).mobilecode 200                                 mi.Province = mobilecode.Item(i).Province 201                                 cl.mobilecontext = New List(Of mobileLoadwritetxt) 202                                 cl.mobilecontext.Add(mi) 203                                 loadlist.Item(str(1)).mobileNew.Add(cl) 204                             End If 205                         Else 206                             Dim pl As New plist 207                             pl.province = mobilecode.Item(i).Province 208                             Dim lm As New citylist 209                             lm.city = mobilecode.Item(i).City 210                             Dim mo As New mobileLoadwritetxt 211                             mo.Card = mobilecode.Item(i).Card 212                             mo.City = mobilecode.Item(i).City 213                             mo.context = list.Item(j) 214                             mo.mobilecode = mobilecode.Item(i).mobilecode 215                             mo.Province = mobilecode.Item(i).Province 216                             lm.mobilecontext = New List(Of mobileLoadwritetxt) 217                             lm.mobilecontext.Add(mo) 218                             pl.mobileNew = New List(Of citylist) 219                             pl.mobileNew.Add(lm) 220                             loadlist.Add(pl) 221                         End If 222                         End If 223                 End If 224             Next 225         Next 226         MessageBox.Show("请立即导入，当关闭此窗口数据就会销毁", "提示") 227     End Sub  228  229     Public Function isProvince(ByVal list As List(Of plist), ByVal str As String) 230         Dim i As Integer 231         For i = 0 To list.Count - 1 232             If str.ToString.Equals(list.Item(i).province.ToString) Then 233                 Return 1 & " " & i 234             End If 235         Next 236         Return 0 & " " & i - 1 237     End Function  238  239     Public Function iscity(ByVal list As List(Of plist), ByVal str As String) 240         Dim i, j As Integer 241         Dim pl As plist 242         pl.mobileNew = New List(Of citylist) 243         Dim cl As citylist 244         For i = 0 To list.Count - 1 245             pl.mobileNew = list.Item(i).mobileNew 246             For j = 0 To pl.mobileNew.Count - 1 247                 cl = pl.mobileNew.Item(j) 248                 If cl.city.ToString.Equals(str) Then 249                     Return 1 & " " & j 250                 End If 251             Next 252         Next 253         Return 0 & " " & j - 1 254     End Function  255  256 End Class  257 

 

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

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


【本文地址】


今日新闻

推荐新闻

CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3