05. maj 2008 - 21:13Der er
6 kommentarer og 1 løsning
TXT loop
Hej E.....
Jeg har denne kode hvor den ligger et punkt ind på et kort ud fra et kordinat i en txt fil..
jeg har fået den til at læse fra fil'en. men jeg vil gerne have den loop'er igemmen txt filen når den har udført den første del af koden.. hvordan gør jeg det hvis i forstår mig..
her er koden
Dim data() As String Dim txtfil As String
Open Replace("W:\" & "\" & "flaadestyring.txt", "\\", "\") For Input As #1
Line Input #1, txtfil 'læser kun første linie i filen Close #1
'splitter txt filen op i de enkelte variabler Text3.text = txtfil data = VBA.Split(txtfil, ";") Text1.text = (data(0)) '1 variabel Text2.text = (data(1)) '2 variabel Text4.text = (data(2)) '3 variabel Text5.text = (data(3)) '4 variabel Text6.text = (data(4)) '5 variabel
hele koden ser sådan ud alt inden for '<<<< og '>>>> det er det som skal loop for hver linje:
Private Sub Command1_Click() Dim objmap As MapPointCtl.Map Dim objdataset As MapPointCtl.DataSet Dim objRecordset As MapPointCtl.Recordset
Set objmap = MappointControl1.ActiveMap
For Each objdataset In objmap.DataSets Set objRecordset = objdataset.QueryAllRecords Do Until objRecordset.EOF objRecordset.Pushpin.Delete objRecordset.MoveNext Loop Next '<<<<
Dim data() As String Dim txtfil As String
Open Replace("W:\" & "\" & "flaadestyring.txt", "\\", "\") For Input As #1
Line Input #1, txtfil 'læser kun første linie i filen Close #1
'splitter txt filen op i de enkelte variabler Text3.Text = txtfil data = VBA.Split(txtfil, ";") Text1.Text = (data(0)) '1 variabel Text2.Text = (data(1)) '2 variabel Text4.Text = (data(2)) '3 variabel Text5.Text = (data(3)) '4 variabel Text6.Text = (data(4)) '5 variabel
Open Replace("W:\" & "\" & "flaadestyring.txt", "\\", "\") For Input As #1 Do Line Input #1, txtfil 'læser kun første linie i filen
'splitter txt filen op i de enkelte variabler Text3.Text = txtfil data = VBA.Split(txtfil, ";") Text1.Text = (data(0)) '1 variabel Text2.Text = (data(1)) '2 variabel Text4.Text = (data(2)) '3 variabel Text5.Text = (data(3)) '4 variabel Text6.Text = (data(4)) '5 variabel
Set objLoc = MappointControl1.object.ActiveMap.GetLocation(gpslat1, gpslon1, 200) MappointControl1.ActiveMap.AddPushpin objLoc, (vognnr & " - " & has & " - " & kl) '>>>> loop until eof(1) Close #1 End Sub
Private Sub Command1_Click() Dim objmap As MapPointCtl.Map Dim objdataset As MapPointCtl.DataSet Dim objRecordset As MapPointCtl.Recordset
Set objmap = MappointControl1.ActiveMap
For Each objdataset In objmap.DataSets Set objRecordset = objdataset.QueryAllRecords Do Until objRecordset.EOF objRecordset.Pushpin.Delete objRecordset.MoveNext Loop Next
Dim data() As String Dim txtfil As String
Open Replace("W:\" & "\" & "flaadestyring.txt", "\\", "\") For Input As #1 Do Line Input #1, txtfil 'læser kun første linie i filen
'splitter txt filen op i de enkelte variabler Text3.Text = txtfil data = VBA.Split(txtfil, ";") Text1.Text = (data(0)) '1 variabel Text2.Text = (data(1)) '2 variabel Text4.Text = (data(2)) '3 variabel Text5.Text = (data(3)) '4 variabel Text6.Text = (data(4)) '5 variabel sym.Text = (data(5)) '6 variabel
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
