本文介绍了嗨..我有一个代码在这里..而这几年我花了几年但我真的无法弄清楚如何使这项工作...的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！
问题描述
我真的很擅长编程，而且我的代码非常有趣..请帮助..提前感谢..顺便说一句，我的应用程序用于从txt文件中读取数据并保存到访问数据库..但我只能得到第一次出现的字符串及其值，但第二次出现相同的字符串，它不能..我也使用文本框并将其绑定到数据库以保存文件中的值..我真的不知道该怎么办。
I'm really bad at programming, and my code is really funny.. please help.. thanks in advance.. by the way, my app is used to read data from a txt file and save to access database.. but i can only get the first occurrence of the string and its "value" but the second occurrence of the same string it can't.. i also used textboxes and bind it to database to save the values from the file.. i really don't know what to do.
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Drawing
Imports System.Threading
Imports System.Windows.Forms
Public Class Data_Update
Dim SearchDir As String
Dim ThisFile As String
Dim list As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
Dim startstr As String
Dim sellength As String
Public Sub New()
' This call is required by the designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
'load data into the '_HPQ2014_Temp_DataSet.HouseholdDatabase' table
Me.GPSDatabaseTableAdapter.Fill(Me._HPQ2014_Temp_DataSet.GPSDatabase)
RadGridView1.TableElement.BeginUpdate()
RadGridView1.EnableFiltering = True
RadGridView1.EnableGrouping = False
RadGridView1.AllowAddNewRow = False
RadGridView1.ReadOnly = True
RadGridView1.MasterTemplate.ShowHeaderCellButtons = True
RadGridView1.MasterTemplate.ShowFilteringRow = False
RadGridView1.MasterTemplate.BestFitColumns()
RadGridView1.TableElement.EndUpdate()
End Sub
Private Sub DataUpdate_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Startup.Show()
End Sub
Private Sub ShowCntrl_btn_Click(sender As Object, e As EventArgs) Handles ShowCntrl_btn.Click
Data_Update_Controls.Visible = False
Data_Update_Controls.Visible = True
End Sub
Private Sub SourcePath_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SourcePath_btn.Click
SourceList_lst.Items.Clear()
ReadIt.ProgressBar1.Value = 0
SetPath()
End Sub
Public Sub SetPath()
Me.Refresh()
With FolderBrowserDialog1
.Description = "Select directory of GPS Source files"
.ShowDialog()
End With
ReadIt.Show()
End Sub
Public Sub readDir()
SearchDir = FolderBrowserDialog1.SelectedPath
SourcePath_txtbox.Text = SearchDir
Try
Windows.Forms.Cursor.Current = Cursors.WaitCursor
ReadIt.Update()
list = My.Computer.FileSystem.FindInFiles( _
SearchDir, Label1.Text, _
True, FileIO.SearchOption.SearchAllSubDirectories, "*.js")
For Each name As String In list
ListBox1.Items.Add(name)
Next
ReadIt.ProgressBar1.Maximum = ListBox1.Items.Count
StringSearch()
SourceList_lst.SelectedIndex = 0
Catch ex As Exception
MessageBox.Show(ex.Message.ToString(), "Error!")
End Try
ReadIt.Close()
Data_Update_Controls.Show()
End Sub
Private Sub StringSearch()
For Each name As String In list
ReadIt.Update()
SourceList_lst.Items.Add(name)
SourceCount_lbl.Text = SourceList_lst.Items.Count & " files found."
SourceCount_lbl.Update()
ReadIt.Textbox1.Text = name
ReadIt.ProgressBar1.Value = SourceList_lst.Items.Count
Next
End Sub
Public Sub GPS_lat()
startstr = Label1.Text
sellength = Label1.Text.Length
Readme()
Latitude_txt.Paste()
Dim Lat_end As Integer : Dim endstr As String = Label2.Text
Lat_end = InStr(1, Latitude_txt.Text, endstr)
If Lat_end > 0 Then
With Latitude_txt
.SelectionStart = Lat_end - 1
.SelectionLength = 100
.Cut()
End With
End If
GPS_lon()
End Sub
Public Sub GPS_lon()
startstr = Label2.Text
sellength = Label2.Text.Length
Readme()
Longitude_txt.Paste()
Dim Lon_end As Integer : Dim endstr As String = Label3.Text
Lon_end = InStr(1, Longitude_txt.Text, endstr)
If Lon_end > 0 Then
With Longitude_txt
.SelectionStart = Lon_end - 1
.SelectionLength = 40
.Cut()
End With
End If
GPS_alt()
End Sub
Public Sub GPS_alt()
startstr = Label3.Text
sellength = Label3.Text.Length
Readme()
Altitude_txt.Paste()
Dim Alt_end As Integer : Dim endstr As String = Label4.Text
Alt_end = InStr(1, Altitude_txt.Text, endstr)
If Alt_end > 0 Then
With Altitude_txt
.SelectionStart = Alt_end - 1
.SelectionLength = 40
.Cut()
End With
End If
GPS_acc()
End Sub
Public Sub GPS_acc()
startstr = Label4.Text
sellength = Label4.Text.Length
Readme()
Accuracy_txt.Paste()
Dim Acc_end As Integer : Dim endstr As String = Label5.Text
Acc_end = InStr(1, Accuracy_txt.Text, endstr)
If Acc_end > 0 Then
With Accuracy_txt
.SelectionStart = Acc_end - 1
.SelectionLength = 50
.Cut()
End With
End If
Brgy()
End Sub
Public Sub Brgy()
brgy_tmp1.Clear()
Dim brgy1 As Integer : Dim brgys As String = Label9.Text
brgy1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, brgys)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = brgy1 + 7
.SelectionLength = 3
End With
On Error Resume Next
Dim be As Integer = CInt(Data_Update_Controls.SourceView_txtbox.SelectedText)
Dim brgy(50) 'As String
brgy(1) = "Agnas (San Miguel Island)"
brgy(2) = "Bacolod"
brgy(3) = "Bangkilingan"
brgy(4) = "Bantayan"
brgy(5) = "Baranghawon"
brgy(6) = "Basagan"
brgy(7) = "Basud (Pob.)"
brgy(8) = "Bogñabong"
brgy(9) = "Bombon (Pob.)"
brgy(10) = "Bonot"
brgy(11) = "San Isidro (Boring)"
brgy(12) = "Buang"
brgy(13) = "Buhian"
brgy(14) = "Cabagñan"
brgy(15) = "Cobo"
brgy(16) = "Comon "
brgy(17) = "Cormidal"
brgy(18) = "Divino Rostro (Pob.)"
brgy(19) = "Fatima"
brgy(20) = "Guinobat"
brgy(21) = "Hacienda (San Miguel Island)"
brgy(22) = "Magapo"
brgy(23) = "Mariroc"
brgy(24) = "Matagbac"
brgy(25) = "Oras"
brgy(26) = "Oson"
brgy(27) = "Panal"
brgy(29) = "Pawa"
brgy(30) = "Pinagbobong"
brgy(31) = "Quinale Cabasan (Pob.)"
brgy(32) = "Quinastillojan"
brgy(33) = "Rawis (San Miguel Island)"
brgy(34) = "Sagurong (San Miguel Island)"
brgy(35) = "Salvacion"
brgy(36) = "San Antonio"
brgy(37) = "San Carlos"
brgy(38) = "San Juan (Pob.)"
brgy(39) = "San Lorenzo"
brgy(40) = "San Ramon"
brgy(41) = "San Roque"
brgy(42) = "San Vicente"
brgy(44) = "Santo Cristo (Pob.)"
brgy(45) = "Sua-Igot"
brgy(46) = "Tabiguian"
brgy(48) = "Tagas"
brgy(49) = "Tayhi (Pob.)"
brgy(50) = "Visita (San Miguel Island)"
Brgy_tmp.Text = (brgy(be))
Brgy_tmp.Update()
Purok()
End Sub
Public Sub Purok()
Dim zone1 As Integer : Dim zone As String = Label8.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + 7
.SelectionLength = 1
End With
Purok_tmp.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
Purok_tmp.Update()
HHNum()
End Sub
Public Sub HHNum()
Dim hhnum3 As Integer : Dim hhnum33 As String = Label11.Text
hhnum3 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, hhnum33)
If hhnum3 > 0 Then
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = hhnum3 + 6
.SelectionLength = 20
End With
HHNumber_tmp.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
Else
GoTo OtherType
End If
Dim hhnum4 As Integer : Dim hhnum44 As String = Label86.Text
hhnum4 = InStr(1, HHNumber_tmp.Text, hhnum44)
If hhnum4 > 0 Then
With HHNumber_tmp
.SelectionStart = hhnum4 - 1
.SelectionLength = 30
.Cut()
.Update()
End With
End If
' housetype()
HHName()
Exit Sub
OtherType: '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Dim hhnum1 As Integer : Dim hhnum As String = Label10.Text
hhnum1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, hhnum)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = hhnum1 + 5
.SelectionLength = 20
End With
HHNumber_tmp.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
Dim hhnum2 As Integer : Dim hhnum22 As String = Label87.Text
hhnum2 = InStr(1, HHNumber_tmp.Text, hhnum22)
With HHNumber_tmp
.SelectionStart = hhnum2 - 1
.SelectionLength = 30
.Cut()
.Update()
End With
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' housetype()
HHName()
End Sub
Public Sub Respondent()
Dim posName1 As Integer : Dim startofstring1 As String = Label86.Text
posName1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, startofstring1)
Data_Update_Controls.SourceView_txtbox.SelectionStart = posName1 + (Label86.Text.Length - 1)
Data_Update_Controls.SourceView_txtbox.SelectionLength = 80
respo_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
Dim posName2 As Integer : Dim endofstring2 As String = Chr(34)
posName2 = InStr(1, respo_txt.Text, endofstring2)
On Error Resume Next
respo_txt.SelectionStart = posName2 - 1
respo_txt.SelectionLength = 100
respo_txt.Cut()
respo_txt.Update()
housetype()
End Sub
Public Sub housetype()
Dim zone1 As Integer : Dim zone As String = Label12.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + (Label12.Text.Length - 1)
.SelectionLength = 1
End With
housetype_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
housetype_txt.Update()
bedrooms()
End Sub
Public Sub bedrooms()
Dim zone1 As Integer : Dim zone As String = Label13.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + (Label13.Text.Length - 1)
.SelectionLength = 1
End With
bedrooms_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
roof()
End Sub
Public Sub roof()
Dim zone1 As Integer : Dim zone As String = Label14.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + (Label14.Text.Length - 1)
.SelectionLength = 1
End With
rooftype_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
rooftype_txt.Update()
wall()
End Sub
Public Sub wall()
Dim zone1 As Integer : Dim zone As String = Label15.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + (Label15.Text.Length - 1)
.SelectionLength = 1
End With
walltype_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
walltype_txt.Update()
ofws()
End Sub
Public Sub ofws()
Dim zone1 As Integer : Dim zone As String = Label16.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + (Label16.Text.Length - 1)
.SelectionLength = 1
End With
ofw_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
ofw_txt.Update()
nucfam()
End Sub
Public Sub nucfam()
Dim zone1 As Integer : Dim zone As String = Label17.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + (Label17.Text.Length - 1)
.SelectionLength = 1
End With
numfamilies_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
numfamilies_txt.Update()
famsize()
End Sub
Public Sub famsize()
Dim zone1 As Integer : Dim zone As String = Label21.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + (Label21.Text.Length - 1)
.SelectionLength = 1
End With
fammembers_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
fammembers_txt.Update()
HHName()
End Sub
' try to loop from here to
Public Sub HHName()
Dim pos_last1 As Integer : Dim startofstring_last As String = Label23.Text
pos_last1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, startofstring_last)
Data_Update_Controls.SourceView_txtbox.SelectionStart = pos_last1 + (Label23.Text.Length - 1)
Data_Update_Controls.SourceView_txtbox.SelectionLength = 20
lastname_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
Dim pos_last2 As Integer : Dim endofstring_last As String = Chr(34)
pos_last2 = InStr(1, lastname_txt.Text, endofstring_last)
On Error Resume Next
lastname_txt.SelectionStart = pos_last2 - 1
lastname_txt.SelectionLength = 20
lastname_txt.Cut()
lastname_txt.Update()
Dim pos_first1 As Integer : Dim startofstring_first As String = Label24.Text
pos_first1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, startofstring_first)
Data_Update_Controls.SourceView_txtbox.SelectionStart = pos_first1 + (Label24.Text.Length - 1)
Data_Update_Controls.SourceView_txtbox.SelectionLength = 20
firstname_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
Dim pos_first2 As Integer
Dim endofstring_first As String = Chr(34)
pos_first2 = InStr(1, firstname_txt.Text, endofstring_first)
On Error Resume Next
firstname_txt.SelectionStart = pos_first2 - 1
firstname_txt.SelectionLength = 50
firstname_txt.Cut()
firstname_txt.Update()
Dim pos_mid1 As Integer : Dim startofstring_mid As String = Label25.Text
pos_mid1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, startofstring_mid)
Data_Update_Controls.SourceView_txtbox.SelectionStart = pos_mid1 + (Label25.Text.Length - 1)
Data_Update_Controls.SourceView_txtbox.SelectionLength = 20
midname_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
Dim pos_mid2 As Integer : Dim endofstring_mid As String = Chr(34)
pos_mid2 = InStr(1, midname_txt.Text, endofstring_mid)
On Error Resume Next
midname_txt.SelectionStart = pos_mid2 - 1
midname_txt.SelectionLength = 50
midname_txt.Cut()
midname_txt.Update()
' nuclear()
End Sub
Public Sub nuclear()
Dim zone1 As Integer : Dim zone As String = Label26.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + (Label26.Text.Length - 1)
.SelectionLength = 1
End With
nuclear_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
nuclear_txt.Update()
rel()
End Sub
Public Sub rel()
Dim zone1 As Integer : Dim zone As String = Label27.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + (Label27.Text.Length - 1)
.SelectionLength = 1
End With
relation2head_txt.Paste()
On Error Resume Next
relation2head_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
relation2head_txt.Update()
sex()
End Sub
Public Sub sex()
Dim zone1 As Integer : Dim zone As String = Label28.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + (Label28.Text.Length - 1)
.SelectionLength = 1
End With
On Error Resume Next
sex_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
sex_txt.Update()
birth()
End Sub
Public Sub birth()
Dim zone1 As Integer : Dim zone As String = Label29.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + (Label29.Text.Length - 1)
.SelectionLength = 10
End With
birth_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
birth_txt.Update()
age()
End Sub
Public Sub age()
Dim zone1 As Integer : Dim zone As String = Label30.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + (Label30.Text.Length - 1)
.SelectionLength = 10
End With
age_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
Dim _end As Integer : Dim endstr As String = ","
_end = InStr(1, age_txt.Text, endstr)
With age_txt
.SelectionStart = _end - 1
.SelectionLength = 20
.Cut()
.Update()
End With
birthreg()
End Sub
Public Sub birthreg()
Dim zone1 As Integer : Dim zone As String = Label31.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + (Label31.Text.Length - 1)
.SelectionLength = 1
End With
birthreg_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
birthreg_txt.Update()
civilstat()
End Sub
Public Sub civilstat()
Dim zone1 As Integer : Dim zone As String = Label32.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + (Label32.Text.Length - 1)
.SelectionLength = 1
End With
civilstat_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
civilstat_txt.Update()
educ()
End Sub
Public Sub educ()
Dim zone1 As Integer : Dim zone As String = Label37.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + (Label37.Text.Length - 1)
.SelectionLength = 20
End With
educattain_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
Dim _end As Integer : Dim endstr As String = Label67.Text
_end = InStr(1, educattain_txt.Text, endstr)
With educattain_txt
.SelectionStart = _end - 1
.SelectionLength = 20
.Cut()
.Update()
End With
literacy()
End Sub
Public Sub literacy()
Dim zone1 As Integer : Dim zone As String = Label144.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + (Label144.Text.Length - 1)
.SelectionLength = 1
End With
literacy_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
literacy_txt.Update()
voter()
End Sub
Public Sub voter()
Dim zone1 As Integer : Dim zone As String = Label38.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + (Label38.Text.Length - 1)
.SelectionLength = 1
End With
On Error Resume Next
votereg_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
votereg_txt.Update()
voted()
End Sub
Public Sub voted()
Dim zone1 As Integer : Dim zone As String = Label39.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + (Label39.Text.Length - 1)
.SelectionLength = 1
End With
votelast_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
votelast_txt.Update()
job()
End Sub
Public Sub job()
Dim pos_last1 As Integer : Dim startofstring_last As String = Label40.Text
pos_last1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, startofstring_last)
Data_Update_Controls.SourceView_txtbox.SelectionStart = pos_last1 + (Label40.Text.Length - 1)
Data_Update_Controls.SourceView_txtbox.SelectionLength = 300
Data_Update_Controls.SourceView_txtbox.Copy()
occupation_txt.Paste()
Dim pos_last2 As Integer : Dim endofstring_last As String = Label41.Text
pos_last2 = InStr(1, occupation_txt.Text, endofstring_last)
On Error Resume Next
occupation_txt.SelectionStart = pos_last2 - 1
occupation_txt.SelectionLength = 300
occupation_txt.Cut()
jobnature()
End Sub
Public Sub jobnature()
Dim zone1 As Integer : Dim zone As String = Label44.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + (Label44.Text.Length - 1)
.SelectionLength = 1
.Copy()
End With
employment_txt.Paste()
workclass()
End Sub
Public Sub workclass()
Dim zone1 As Integer : Dim zone As String = Label45.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + (Label45.Text.Length - 1)
.SelectionLength = 1
End With
workclass_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
workclass_txt.Update()
incomecash()
End Sub
Public Sub incomecash()
Dim pos_last1 As Integer : Dim startofstring_last As String = Label46.Text
pos_last1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, startofstring_last)
Data_Update_Controls.SourceView_txtbox.SelectionStart = pos_last1 + (Label46.Text.Length - 1)
Data_Update_Controls.SourceView_txtbox.SelectionLength = 4
annualincash_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
Dim pos_last2 As Integer : Dim endofstring_last As String = ","
pos_last2 = InStr(1, annualincash_txt.Text, endofstring_last)
On Error Resume Next
annualincash_txt.SelectionStart = pos_last2 - 1
annualincash_txt.SelectionLength = 10
annualincash_txt.Cut()
annualincash_txt.Update()
incomekind()
End Sub
Public Sub incomekind()
Dim pos_last1 As Integer : Dim startofstring_last As String = Label47.Text
pos_last1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, startofstring_last)
Data_Update_Controls.SourceView_txtbox.SelectionStart = pos_last1 + (Label47.Text.Length - 1)
Data_Update_Controls.SourceView_txtbox.SelectionLength = 4
annualinkind_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
Dim pos_last2 As Integer : Dim endofstring_last As String = ","
pos_last2 = InStr(1, annualinkind_txt.Text, endofstring_last)
On Error Resume Next
annualinkind_txt.SelectionStart = pos_last2 - 1
annualinkind_txt.SelectionLength = 20
annualinkind_txt.Cut()
annualinkind_txt.Update()
SSS()
End Sub
Public Sub SSS()
Dim zone1 As Integer : Dim zone As String = Label48.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + (Label48.Text.Length - 1)
.SelectionLength = 1
End With
SSSGSIS_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
SSSGSIS_txt.Update()
water()
End Sub
' here
Public Sub water()
Dim zone1 As Integer : Dim zone As String = Label49.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + (Label49.Text.Length - 1)
.SelectionLength = 1
End With
watersource_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
watersource_txt.Update()
toilet()
End Sub
Public Sub toilet()
Dim zone1 As Integer : Dim zone As String = Label50.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + (Label50.Text.Length - 1)
.SelectionLength = 1
End With
toilettype_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
toilettype_txt.Update()
tenure()
End Sub
Public Sub tenure()
Dim zone1 As Integer : Dim zone As String = Label51.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + (Label51.Text.Length - 1)
.SelectionLength = 1
End With
tenurestatus_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
tenurestatus_txt.Update()
rent()
End Sub
Public Sub rent() ' to be trimmed later
Dim zone1 As Integer : Dim zone As String = Label52.Text
zone1 = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, zone)
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = zone1 + (Label52.Text.Length - 1)
.SelectionLength = 4
End With
rent_txt.Text = Data_Update_Controls.SourceView_txtbox.SelectedText
Dim Lon_end As Integer : Dim endstr As String = ","
Lon_end = InStr(1, rent_txt.Text, endstr)
With rent_txt
.SelectionStart = Lon_end - 1
.SelectionLength = 10
.Cut()
.Update()
End With
End Sub
Public Sub Readme()
Dim str_start As Integer
str_start = InStr(1, Data_Update_Controls.SourceView_txtbox.Text, startstr)
If str_start > 0 Then
With Data_Update_Controls.SourceView_txtbox
.SelectionStart = str_start + (sellength - 1)
.SelectionLength = 40
.Copy()
End With
End If
End Sub
Private Sub SourceList_lst_SelectedIndexChanged(sender As Object, e As EventArgs) Handles SourceList_lst.SelectedIndexChanged
Data_Update_Controls.DisplayContents()
GPS_lat()
End Sub
Private Sub ShowMap_btn_Click(sender As Object, e As EventArgs)
Me.Close()
GoCopy()
Startup.Show()
End Sub
Private Sub GoCopy()
Try
System.IO.File.Copy("HPQ2014(Temp).accdb", "C:\CBMSDatabase\HPQ2014(Temp).accdb")
Catch ex As Exception
If MessageBox.Show(ex.Message.ToString(), _
"Error", MessageBoxButtons.YesNo) = vbYes Then
System.IO.File.Delete("C:\CBMSDatabase\HPQ2014(Temp).accdb")
System.IO.File.Copy("HPQ2014(Temp).accdb", "C:\CBMSDatabase\HPQ2014(Temp).accdb")
End If
End Try
End Sub
Private Sub Reload()
If System.IO.File.Exists("HPQ2014(Temp).accdb") = True Then
System.IO.File.Delete("HPQ2014(Temp).accdb")
End If
Try
System.IO.File.Copy("C:\CBMSDatabase\HPQ2014(Temp).accdb", "HPQ2014(Temp).accdb")
Catch ex As Exception
MessageBox.Show(ex.Message.ToString(), "Error")
End Try
End Sub
End Class
And here is the file that i’m importing to my database..
And here is the file that i'm importing to my database..
{"androidDisplayName":"ADELINA BRUCE RO","androidDescription":"05 17 4 018 99 356","geopoint_hh_ind":"1","geopoint_hh":{"latitude":"13.354465000000001","longitude":"123.73282666666667","altitude":"38.1","accuracy":"4.8"},"regn":"05","prov":"05","mun":"17","zone":"4","brgy":"018","purok":"99","street":"none","hnum":"none","hcn":356,"respondent":"ADELINA BRUCE","int_date":"2014-06-13","start_time":"14:00","interviewer":"RONALD BONAFUS","house_type":"1","house_type_o":"","nbr":1,"roof":"2","wall":"2","nofw":0,"nnucfam":1,"hpregind":"2","uniparind":"1","disableind":"2","phsize":1,"hpq_mem":[{"memno":"1","msname":"BRUCE ","mfname":"ADELINA","mmname":"BA\u00d1ADERA","nucfam":"1","reln":"1","reln_o":"","sex":"2","birth_date":"1943-12-10","age":70.5927446954141,"age_yr":70,"birth_reg":"1","civstat":"3","ethgrp":"37","ethgrp_o":"","ofw":null,"mlenresid":"1","country_resid":"","country_resid_o":"","prov_resid_code":"","mun_resid_code":"","brgy_resid_code":"","mun_resid_txt":"","brgy_resid_txt":"","educind":"2","gradel":"","sch_type":"","gradel_calc":499,"ynotsch":"","ynotsch_o":"","educal":"16","psced7":"","course_o":"","literind":"1","regvotind":"1","voted_last_election":"2","jobind":"2","entrepind":"2","njob":0,"occup":"","psoc4":"","indust":"","psic4":"","jstatus":"","work_ddhrs":0,"work_wkhrs":0,"fadd_work_hrs":null,"fxtra_wrk":null,"workcl":"","fjob":"2","first_fjob":null,"jsearch_meth":"","jsearch_meth_o":"","wks_fjob":0,"ynotlookjob":"3","ynotlookjob_o":"","lastlookjob":"3","joppind":"2","wtwind":"2","wagcshm":0,"wagkndm":0,"sss_ind":"4","pregind":null,"solo_parent":"1","pwd_ind":null,"pwd_type":"","pwd_type_o":"","pwd_id":null,"scid_ind":"1","mcrimeind":"2","mtheftind":null,"mrapeind":null,"minjurind":null,"mcarnapind":null,"mcattrustlind":null,"mocrimind":null,"mocrim":"","mtheftloc":null,"mrapeloc":null,"minjurloc":null,"mcarnaploc":null,"mcattrustlloc":null,"mocrimloc":null,"mnutind":"","mnutind_date":""}],"water":"2","water_o":"","water_dist":10,"toil":"1","toil_o":"","tenur":"1","tenur_o":"","imprnt":500,"welec":"1","elec_company":"1","elec_generator":"2","elec_solar":"2","elec_battery":"2","elec_source_o":"2","elec_source_o_lb":"","radio":0,"radio_nwacq":0,"tv":0,"tv_nwacq":0,"vplayer":0,"vplayer_nwacq":0,"stereo":0,"stereo_nwacq":0,"karaoke":0,"karaoke_nwacq":0,"ref":0,"ref_nwacq":0,"efan":0,"efan_nwacq":0,"iron":0,"iron_nwacq":0,"stove":0,"stove_nwacq":0,"wmach":0,"wmach_nwacq":0,"microw":0,"microw_nwacq":0,"computer":0,"computer_nwacq":0,"internet":0,"internet_nwacq":0,"celfone":0,"celfone_nwacq":0,"telefone":0,"telefone_nwacq":0,"airc":0,"airc_nwacq":0,"sewmach":0,"sewmach_nwacq":0,"car":0,"car_nwacq":0,"motor":0,"motor_nwacq":0,"landagri":0,"landagri_nwacq":0,"landres":0,"landres_nwacq":0,"landcomm":0,"landcomm_nwacq":0,"sofa":1,"sofa_nwacq":0,"dineset":1,"dineset_nwacq":0,"own_other":0,"own_other_o":"","own_other_nwacq":0,"insur_house":"2","insur_house_src":"","insur_house_src_o":"","insur_motor":null,"insur_motor_src":"","insur_motor_src_o":"","insur_appliance":"2","insur_appliance_src":"","insur_appliance_src_o":"","garb_collect":"1","garb_burn":"2","garb_comp":"2","garb_recycl":"2","garb_wsegr":"2","garb_cpit":"2","garb_opit":"2","garb_river":"2","garb_mgt_o":"2","garb_mgt_o_lb":"","garb_collector":"1","garb_collector_o":"","freq_garb_coll":"2","freq_garb_coll_o":"","cropind":"2","cropincsh":0,"cropinknd":0,"poultind":"2","pouincsh":0,"pouinknd":0,"fishind":"2","fishincsh":0,"fishinknd":0,"forind":"2","forincsh":0,"forinknd":0,"salind":"2","salincsh":0,"salinknd":0,"manind":"2","manincsh":0,"maninknd":0,"servind":"2","servincsh":0,"servinknd":0,"trnind":"2","trnincsh":0,"trninknd":0,"minind":"2","minincsh":0,"mininknd":0,"cnsind":"2","cnsincsh":0,"cnsinknd":0,"eothind":"2","eoincsh":0,"eoinknd":0,"etotcsh":0,"etotknd":0,"wagcsh":0,"wagknd":0,"agscsh":0,"agsknd":0,"ofwcsh":0,"ofwknd":0,"supfcsh":0,"supfknd":0,"suprcsh":12000,"suprknd":500,"rentvcsh":0,"rentvknd":0,"intrcsh":0,"intrknd":0,"pencsh":0,"penknd":0,"divcsh":0,"divknd":0,"othscsh":0,"othsknd":0,"othstotcsh":12000,"othstotknd":500,"imprnttot":6000,"totincsh":12000,"totinknd":6500,"totin":18500,"nalp":0,"hpq_alp":[],"ncrop":0,"hpq_crop":[],"agriequip1":null,"agriequip1_nown":0,"agriequip2":null,"agriequip2_nown":0,"agriequip3":null,"agriequip3_nown":0,"agriequip4":null,"agriequip4_nown":0,"agriequip5":null,"agriequip5_nown":0,"agriequip6":null,"agriequip6_nown":0,"agriequip7":null,"agriequip7_nown":0,"agriequip8":null,"agriequip8_nown":0,"agriequip9":null,"agriequip9_nown":0,"agriequip10":null,"agriequip10_nown":0,"agriequip11":null,"agriequip11_nown":0,"agriequip12":null,"agriequip12_nown":0,"agriequip13":null,"agriequip13_nown":0,"agriequip14":null,"agriequip14_nown":0,"agriequip15":null,"agriequip15_nown":0,"agriequip16":null,"agriequip16_nown":0,"agriequip17":null,"agriequip17_nown":0,"agriequip18":null,"agriequip18_nown":0,"agriequip18_o":"","live_a_hog":null,"live_a_hog_vol":0,"live_a_goat":null,"live_a_goat_vol":0,"live_a_carabao":null,"live_a_carabao_vol":0,"live_a_cow":null,"live_a_cow_vol":0,"live_a_chicken":null,"live_a_chicken_vol":0,"live_a_duck":null,"live_a_duck_vol":0,"live_a_others":null,"live_a_others_o":"","live_a_others_vol":0,"meat_hog":null,"meat_hog_vol":0,"meat_goat":null,"meat_goat_vol":0,"meat_carabao":null,"meat_carabao_vol":0,"meat_cow":null,"meat_cow_vol":0,"meat_chicken":null,"meat_chicken_vol":0,"meat_duck":null,"meat_duck_vol":0,"meat_others":null,"meat_others_o":"","meat_others_vol":0,"milk_goat":null,"milk_goat_vol":0,"milk_carabao":null,"milk_carabao_vol":0,"milk_cow":null,"milk_cow_vol":0,"milk_others":null,"milk_others_o":"","milk_others_vol":0,"egg_chicken":null,"egg_chicken_vol":0,"egg_duck":null,"egg_duck_vol":0,"egg_others":null,"egg_others_o":"","egg_others_vol":0,"oani_ind":null,"oani_txt":"","oani_hog":null,"oani_hog_vol":0,"oani_goat":null,"oani_goat_vol":0,"oani_carabao":null,"oani_carabao_vol":0,"oani_cow":null,"oani_cow_vol":0,"oani_chicken":null,"oani_chicken_vol":0,"oani_duck":null,"oani_duck_vol":0,"oani_others":null,"oani_others_o":"","oani_others_vol":0,"catch_fish":null,"cul_fish":null,"catch_fish_loc":null,"boat1":null,"boat1_own":null,"boat2":null,"boat2_own":null,"boat3":null,"boat3_own":null,"boat4":null,"boat4_own":null,"boat5":null,"boat5_own":null,"naquaequip":0,"hpq_aquaequip":[],"fishpond":null,"fishpen":null,"fishcage":null,"seaweedfarm":null,"oysterfarm":null,"musselfarm":null,"fishtank":null,"hatchery":null,"aquafarm_o":null,"aquafarm_o_txt":"","naquani":0,"hpq_aquani":[],"maxyr_resid":"1","yrs_in_cropind":null,"u_amt_harv":null,"u_low_harv":"","u_low_harv_o_lb":"","u_chng_scrop":null,"u_chng_scrop_y":"","u_chng_scrop_y_o_lb":"","u_chng_pcrop":null,"u_chng_pcrop_y":"","u_chng_pcrop_y_o_lb":"","irfa_crop":null,"irfa_crop_src":"","irfa_crop_src_o":"","irfa_agriequip":null,"irfa_agriequip_src":"","irfa_agriequip_src_o":"","yrs_in_lstockind":null,"u_amt_lve":null,"u_low_lve":"","u_low_lve_o_lb":"","irfa_anim":null,"irfa_anim_src":"","irfa_anim_src_o":"","yrs_in_fishind":null,"u_amt_fish":null,"u_low_fish":"","u_low_fish_o_lb":"","irfa_fish":null,"irfa_fish_src":"","irfa_fish_src_o":"","temp_humid":"1","elec_loss":"1","sea_level":"2","water_supply":"2","low_wsupp":"","low_wsupp_o_lb":"","flood_freq":"2","flood_duration":0,"flood_duration_12":0,"drought":"2","drought_duration":"","evac_mveout":"1","evac_ymveout":"1","evac_ymveout_o":"","evac_trans":"1","evac_cntr":"4","evac_cntr_o_lb":"","calam1":"1","calam1_hwmny":1,"calam1_aid":"1","calam1_hus_aid":"1","calam1_hus_aid_o":"","calam2":"2","calam2_hwmny":0,"calam2_aid":null,"calam2_hus_aid":"","calam2_hus_aid_o":"","calam3":"2","calam3_hwmny":0,"calam3_aid":null,"calam3_hus_aid":"","calam3_hus_aid_o":"","calam4":"2","calam4_hwmny":0,"calam4_aid":null,"calam4_hus_aid":"","calam4_hus_aid_o":"","calam5":"2","calam5_hwmny":0,"calam5_aid":null,"calam5_hus_aid":"","calam5_hus_aid_o":"","calam6":"2","calam6_hwmny":0,"calam6_aid":null,"calam6_hus_aid":"","calam6_hus_aid_o":"","calam7":"2","calam7_hwmny":0,"calam7_aid":null,"calam7_hus_aid":"","calam7_hus_aid_o":"","calam8":"2","calam8_hwmny":0,"calam8_aid":null,"calam8_hus_aid":"","calam8_hus_aid_o":"","calam9":"2","calam9_hwmny":0,"calam9_aid":null,"calam9_hus_aid":"","calam9_hus_aid_o":"","calam10":"2","calam10_hwmny":0,"calam10_aid":null,"calam10_hus_aid":"","calam10_hus_aid_o":"","calam11":"2","calam11_o":"","calam11_hwmny":0,"calam11_aid":null,"calam11_hus_aid":"","calam11_hus_aid_o":"","disas_prep":"2","dp_kit1":null,"dp_kit1_xpiry":0,"dp_kit2":null,"dp_kit2_xpiry":0,"dp_kit3":null,"dp_kit4":null,"dp_kit5":null,"dp_kit6":null,"dp_kit7":null,"dp_kit8":null,"dp_kit9":null,"dp_kit10":null,"dp_kit11":null,"dp_kit12":null,"dp_kit13":null,"dp_kit13_o":"","dp_kit13_xpiry":0,"fshort":"2","fsmonth_1":"","fsdays_1":0,"fsmonth_2":"","fsdays_2":0,"fsmonth_3":"","fsdays_3":0,"prevmind":"2","ndeath":0,"hpq_death":[],"prog_slp":"2","prog_slp_nmem":0,"hpq_slp_mem":[],"prog_slp_impl":"","prog_slp_impl_o":"","prog_fudforsch":"2","prog_fudforsch_nmem":0,"hpq_fudforsch_mem":[],"prog_fudforsch_impl":"","prog_fudforsch_impl_o":"","prog_fudforwrk":"2","prog_fudforwrk_nmem":0,"hpq_fudforwrk_mem":[],"prog_fudforwrk_impl":"","prog_fudforwrk_impl_o":"","prog_cshforwrk":"2","prog_cshforwrk_nmem":0,"hpq_cshforwrk_mem":[],"prog_cshforwrk_impl":"","prog_cshforwrk_impl_o":"","prog_spisc":"2","prog_spisc_nmem":0,"hpq_spisc_mem":[],"prog_spisc_impl":"","prog_spisc_impl_o":"","prog_cct":"2","prog_cct_nmem":0,"hpq_cct_mem":[],"prog_cct_impl":"","prog_cct_impl_o":"","prog_arcdp":"2","prog_arcdp_nmem":0,"hpq_arcdp_mem":[],"prog_arcdp_impl":"","prog_arcdp_impl_o":"","prog_cbep":"2","prog_cbep_nmem":0,"hpq_cbep_mem":[],"prog_cbep_impl":"","prog_cbep_impl_o":"","prog_phiheal_ofw":"2","prog_phiheal_ofw_nmem":0,"hpq_phiheal_ofw_mem":[],"prog_phiheal_empl":"2","prog_phiheal_empl_nmem":0,"hpq_phiheal_empl_mem":[],"prog_phiheal_indiv":"2","prog_phiheal_indiv_nmem":0,"hpq_phiheal_indiv_mem":[],"prog_phiheal_spon":"2","prog_phiheal_spon_nmem":0,"hpq_phiheal_spon_mem":[],"prog_phiheal_spon_impl":"","prog_phiheal_spon_impl_o":"","prog_phiheal_life":"2","prog_phiheal_life_nmem":0,"hpq_phiheal_life_mem":[],"nprog":1,"hpq_prog":[{"prog_line":"1404302501310","progtype":"22","progname":"MUNTING HANDOG PROGRAM","prognmem":1,"hpq_prog_mem":[{"hpq_prog_mem_refno":"1"}],"progimplementor":"3","progimplementor_o":""}],"end_time":"14:00","supervisor":"MARY GRACE CASAUL"}推荐答案
这篇关于嗨..我有一个代码在这里..而这几年我花了几年但我真的无法弄清楚如何使这项工作...的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！