In der Schleife fragst du mit einer if-Anweisung den Zähler ab und wenn er gerade bei der zeilennummer ist, die du möchtest, schreib die Zeile einfach in die Ausgabe. Das kann so aussehen: FileStream fs = ("C:\\Dokumente und Einstellungen\\All Users\\Desktop\\", ); string text; for (int i = 0; i < 10; i++) text = adLine(); if (i == 2) = text;//das schreibt die 3. Zeile der Datei in die Ausgabe if (i == 5) = text;//das schreibt die 6. Zeile der Datei in die Ausgabe} Im Prinzip zählst du also, wie oft du ReadLine schon angewendet hast Auftretnde Fehler, die kommen, weil du mehr Zeilen auslesen möchstest, als die Datei hat, musst du natrülich auch noch behandeln Gruß, Marcel:]:DDer größte Fehler eines modernen Computers sitzt meist davor:] 15. 2006 - 17:10 Gutn Morgen Leute! :-) Vielen Dank für eure Lösungsvorschläge. Hab alle eure Möglichkeiten eingebaut. Vba textdatei bestimmte zeile auslesen 2. Haben alle ihren Nutzen gefunden und dienen mir sehr als Übungsmaterial. Nun würd ich zudem gern auf eine andere Weise eine Zeile auslesen.
kann mir bei dem Thema jemand helfen? Danke schon mal Stefan Users found this page by searching for: Zelle einlesen vba, beliebige Datei als string einlesen vba
kussji User Beiträge: 78 Registriert: Mittwoch 16. Mai 2018, 09:58 Hallo Gibt es das nicht direkt, oder finde ich es nur nicht? Habe Textdateien mit je 4'000'000 Zeilen. Diese will ich öffnen und z. B. genau nur die Zeile Nr. 1000 lesen, um diese weiter zu verarbeiten. sowas in der Art unten. Liefert aber nicht die Zeile 1000. sondern die ersten 1000 Zeichen der ersten Zeile. Ursprungsidee war mit csv zu arbeiten, das einlesen dauert bei der grösse aber über 12 sekunden. (passiert zyklisch - darum zu lange) Eine Textdatei ist in 0, nichts geladen. Code: Alles auswählen datei = open('', 'r') zeile = adline(1000) print(zeile) () Sirius3 Beiträge: 15947 Registriert: Sonntag 21. Oktober 2012, 17:20 Dienstag 29. September 2020, 11:04 Das gibt es schon: Trotzdem müssen dafür die ersten 1000 Zeilen gelesen werden. Bei solch einer Größenordnung solltest Du Dich nach einer anderen Art der Speicherung umschauen. Was ist denn die genaue Anwendung? DeaD_EyE Beiträge: 757 Registriert: Sonntag 19. Bestimmte Zeile auslesen | myCSharp.de. September 2010, 13:45 Wohnort: Hagen Kontaktdaten: Dienstag 29. September 2020, 13:32 Einfacher wäre es, wenn jede Zeile die gleiche Länge hätte.
ändern StrFile = Dir( & "\*") 'oder statt eine Fixe Pfadangebe z. B "C:\xxx\" If StrFile = "" Then MsgBox "In diesem Verzeichnis sind keine Txt-Dateien": Exit Sub Do Until StrFile = "" FreeF = FreeFile Open & "\" & StrFile For Input As #FreeF Do Until EOF(FreeF) Line Input #FreeF, StrTXT IntC = IntC + 1 If IntC = 21 Then 'Zeile 21 Exit Do End If Close #FreeF Range("A" & lngZeile) = Replace(StrTXT, " WERT ", "") 'sind da wirklich Leerzeichen vorne und hinten? StrFile = Dir lngZeile = lngZeile + 1 IntC = 0 das mit doppelte entfenen habe ich noch nicht eingebaut, wäre aber auch keine hexerei, falls der code mal überhaupt für dcm dateien funktionieren würde. Gruß Chris Feedback nicht vergessen, p. s Bitte keine PN (persönliche Nachrichten) mit Aufgabenstellungen schicken, Probleme sollten im Forum gelöst werden! 3a2920576572206973742064656e20646120736f206e65756769657269672e Geändert von chris-kaiser (29. Vba textdatei bestimmte zeile auslesen download. 2011 um 12:35 Uhr). 29. 2011, 12:44 # 4 Hallo ihr beiden, herzlichen Dank. Es funktioniert jetzt wie folgt: StrFile = Dir("\\netzlaufwerk" & "\*") Open "\\netzlaufwerk" & "\" & StrFile For Input As #FreeF Range("A" & lngZeile) = Replace(StrTXT, " WERT ", "") Was nicht klappt, ist das Schreiben des Dateinnamens in Spalte A vor dem Wert nach " WERT " (mit drei Leerzeichen vor und einem nach "Wert").
Ferniestraße 4, Gießen, Hessen 35394, Deutschland Kategorien Essen Supermarkt Kontakte Ferniestraße 4, Gießen, Hessen 35394 Änderungen vorschlagen Arbeitszeit Montag 10:00 — 22:00 Dienstag 10:00 — 22:00 Mittwoch 10:00 — 22:00 Donnerstag 10:00 — 22:00 Freitag 10:00 — 22:00 Samstag 10:00 — 22:00 Rezensionen Im Moment haben wir keine Rezensionen! Bewertung hinzufügen Halle Kaya Feinkost auf der Karte Die nächsten Unternehmen Fitness-Studio Muskelkater Siemensstraße 18, Gießen, Hessen 35394 0641 74288 ★ ★ ☆ ☆ ☆ Essen Lidl Raiffeisenstraße 1, Gießen, Hessen 35394 0800 4353361 Post Geschenkartikel und Lottoannahme Ferniestraße 4, Gießen, Hessen 35394 Zu Hause waren lagern MEDA Küchen Gießen, Gießen, Hessen 35394 Gesundheit Urtikaria Gesellschaft e. Ich bin kein Roboter - ImmobilienScout24. V. Schiffenberger Weg 55, Gießen, Hessen 35394 0641 7960666 Essen China Boy Siemensstraße 14, Gießen, Hessen 35394 0641 690070
Die Liste ist natürlich nicht komplett und wir machen sogar Schlüssel für "Great Wall" Fahrzeuge falls Sie möchten (und diese kennen). ALFA ROMEO Autoschlüssel nachmachen und Reparaturen, z.
Deutsche Post Rewe-Center, Gießen weitere Informationen zu Deutsche Post Adresse: Deutsche Post Rewe-Center Ferniestr. Ferniestraße 4 gießen. 4 35394 Gießen Entfernung: 1, 65 km Öffnungszeiten: Mo-Sa: 08:00-20:00 Filiale hat geöffnet weitere Geschäfte Angebote und Prospekte weitere Geschäfte in der Nähe Deiner Deutsche Post Filiale Hussel Seltersweg 15 35390 Back-Factory Mäusburg 1 Geschäfte in der Nähe Deiner Deutsche Post Filiale Central-Apotheke Plockstr. 5 Apotheke am Theater Johannesstr. 5 Jack Wolfskin Neuenweg 4 dm-drogerie markt Seltersweg 7-9 Gießen
Kontakt Entfernung: 46, 22 km entfernt von deinem aktuellen Standort Vilsa-Brunnen Newsletter Möchtest du Vilsa-Brunnen Aktionen sowie auch spezielle Angebote von Handelsangebote per Email erhalten?
6 km entfernt 35390 Gießen ca. 6 km Löberstr. 26 ca. 7 km entfernt 35390 Gießen ca. 7 km Ostanlage 45 ca. 7 km Leihgesterner Weg/Röntgenstr. ca. 7 km entfernt 35392 Gießen ca. 7 km Wartweg 5 ca. 8 km entfernt 35392 Gießen ca. Startseite - Laras Schlüsseldienst. 8 km Tannenweg 19 ca. 8 km entfernt 35394 Gießen ca. 8 km Oberhof 24 ca. 9 km entfernt 35440 Linden ca. 9 km Eichendorffring 125 ca. 9 km entfernt 35394 Gießen ca. 9 km Paul-Meimberg-Str. /Gaffkystr. 9 km entfernt 35392 Gießen ca. 9 km Plockstr. 2 ca. 2 km entfernt 35390 Gießen ca. 2 km Briefkästen nach Stadtteilen in Gießen