vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Text einlesen 
Autor: David M
Datum: 10.12.02 11:01
Also da würde ich wie oben zeilenweise einlesen und dann mit 

StrReverse(Zeile)
die Zeile umdrehen, so dass die Zahl ganz am Anfang steht.
dann mit

pos = InStr(1, Zeile, " ")

feststellen, wann die Zahl aus ist. (sobald ein Leerzeichen kommt ist das der Fall)

Dann schnappst du dir mit

left(Zeile, pos-1)

die aktuelle Zahl, die du dann nach dem "Umdrehen" in die Tabelle schreiben kannst.

Das waren jetzt die gedanklichen Teilbausteine.
Der komplette (angewandte) Schleifen-Code ist hier: 

Dim i as integer
i = 0
Open DateiName For Input As DateiNr
           Do While Not EOF(DateiNr)
                  Line Input #DateiNr, Zeile
                  pos = InStr(1, StrReverse(Zeile), " ")
                  zahl = right(Zeile, pos-1)
                  Cells(i, 1).Value = StrReverse(zahl)
                  i = i + 1
           Loop
Close DateiNr
Cells(i, 1) usw. schreibt die betreffende Zahl untereinander in die A-Spalte.
Noch Fragen?
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Text einlesen1.229Silly10.12.02 10:04
Re: Text einlesen365David M10.12.02 10:31
Re: Text einlesen51Silly10.12.02 10:36
Re: Text einlesen347David M10.12.02 10:42
Re: Text einlesen49Silly10.12.02 10:47
Re: Text einlesen349David M10.12.02 11:01
Re: Text einlesen359michi-bib10.12.02 10:44
Re: Text einlesen39Silly10.12.02 12:42
Re: Text einlesen342David M10.12.02 12:53
Re: Text einlesen43Silly10.12.02 13:28
Re: Text einlesen495David M10.12.02 13:43
Re: Text einlesen40Silly10.12.02 14:18
Re: Text einlesen548David M10.12.02 15:00
Re: Text einlesen38Silly10.12.02 15:18
Re: Text einlesen365David M10.12.02 15:37
Re: Text einlesen36Silly10.12.02 16:05
Re: Text einlesen435David M10.12.02 16:34
Re: Text einlesen33Silly10.12.02 16:51
Re: Text einlesen465David M10.12.02 11:00
Re: Text einlesen35Silly10.12.02 11:06
Re: Text einlesen36Silly11.12.02 08:00
Re: Text einlesen399David M11.12.02 09:09
Re: Text einlesen35Silly11.12.02 09:28
Re: Text einlesen483David M11.12.02 10:29
Re: Text einlesen35Silly11.12.02 10:34
Re: Text einlesen31Silly11.12.02 10:39
Re: Text einlesen374David M11.12.02 10:47
Re: Text einlesen30Silly11.12.02 10:54
Re: Text einlesen362David M11.12.02 11:32
Re: Text einlesen46Silly11.12.02 11:56
Re: Text einlesen328David M11.12.02 13:37
Re: Text einlesen30Silly11.12.02 14:52
Re: Text einlesen557David M11.12.02 15:19
Re: Text einlesen33Silly11.12.02 16:20
Re: Text einlesen433David M12.12.02 08:33
Re: Text einlesen34Silly12.12.02 09:31

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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel