vb.net教程
https://www.xin3721.com/eschool/vbnetxin3721/
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
'此段代码现给有一定编程基础的朋友
