Thema Datum  Von Nutzer Rating
Antwort
Rot txt einlesen
 06.07.2011 09:17:42 Ros
NotSolved
06.07.2011 09:23:15 Ros
NotSolved
06.07.2011 12:43:37 Dekor
NotSolved
06.07.2011 13:44:57 Ros
NotSolved
06.07.2011 16:27:07 Gast5007
NotSolved
07.07.2011 09:41:46 Ros
NotSolved
07.07.2011 12:49:19 Dekor
NotSolved

Ansicht des Beitrags:
Von:
Ros		 Datum:
06.07.2011 09:17:42		 Views:
2150		 Rating:
     
Antwort:
  Ja
Thema:
txt einlesen

ich habe eine txt die so ausieht:

2.1 8.3

3.4 7.1

sprich koorinatenpaare die mit leerzeichen voneinander getrennt sind, und jeweil unterschiedliche viele zeilen hat. mal 3 paare mach 20 paare immer unterschiedlich. Diese wiill ich jetzt per VBA einlesen und die erste zahl in die erste spalte und die zweite in die zweite spalte...und das dann zeile für zeile...

das einlesen klappt  nur bedingt, es werden die paare immer in eine zelle geschrieben und NICHT getrennt...soweit bin ich schon gekommen

Sub read()

Dim kwrite As Double
Open "P:\test.txt" For Input As #1
NLine = 1
Do While Not EOF(1)
Line Input #1, kwrite
                                                                                                                       
Cells(NLine, 1) = kwrite
NLine = NLine + 1
Debug.Print buffer
                                                                
Loop
Close #1
End Sub

desweiteren wäre eine abbruch bedingung schön, falls das file leer ist.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot txt einlesen
 06.07.2011 09:17:42 Ros
NotSolved
06.07.2011 09:23:15 Ros
NotSolved
06.07.2011 12:43:37 Dekor
NotSolved
06.07.2011 13:44:57 Ros
NotSolved
06.07.2011 16:27:07 Gast5007
NotSolved
07.07.2011 09:41:46 Ros
NotSolved
07.07.2011 12:49:19 Dekor
NotSolved