Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Bitte um Hilfe(Textdatei)
Autor: Miki
Datum: 01.12.01 08:25
Hallo, nun, ich weiß nicht genau wie du den einzelnen update in eine tabelle durch führst, aber für den durchlauf der Textdatei: dim sSatz as string dim inSorte as String dim inMasch as String dim inPar as String dim inX as String dim inY as string dim inZ as string dim inZ1 as string dim i as integer i = 0 open "c:deine.txt" for input as #1 while not eof(1) and i <= 41 'einschließlich Zeile 41 line input #1, sSatz i = i + 1 inSorte = left(ssatz,instr(ssatz,";")-1) ssatz = right(ssatz,len(ssatz)-instr(ssatz,";")) inMaschine = left(ssatz,instr(ssatz,";")-1) ssatz = right(ssatz,len(ssatz)-instr(ssatz,";")) inPar = left(ssatz,instr(ssatz,";")-1) ssatz = right(ssatz,len(ssatz)-instr(ssatz,";")) inX = left(ssatz,instr(ssatz,";")-1) ssatz = right(ssatz,len(ssatz)-instr(ssatz,";")) inY = left(ssatz,instr(ssatz,";")-1) ssatz = right(ssatz,len(ssatz)-instr(ssatz,";")) inZ = left(ssatz,instr(ssatz,";")-1) ssatz = right(ssatz,len(ssatz)-instr(ssatz,";")) inZ = left(ssatz,instr(ssatz,";")-1) ' an dieser stelle hast jetzt pro durchlauf jede gewünschten wert 'in der entsprechenden Variable und kannst jetzt einfach 'an die felder zuweisen und über die entsprechenden update ist das fix 'hier der code - aber vorsicht - ich hab das schon lang nicht mehr gemacht... deinRekordset("Sorte") = inSorte deinRekordset.Update deinRekordset("Maschine") = inMaschine deinRekordset.Update deinRekordset("Parameter") = inPar deinRekordset.Update 'usw 'ach ja, du willst ja auf unterschiedliche tabellen schreiben, 'da weiß ich aber nicht mehr weiter - sag mir doch wies geht 'wenns dann geht - bis bald Miki wend close #1

Bitte um Hilfe(Textdatei)	69	Noura	30.11.01 12:38
Re: Bitte um Hilfe(Textdatei)	33	Miki	01.12.01 08:25
Re: Bitte um Hilfe(Textdatei)	26	Noura	03.12.01 08:33

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen