actionbrowser.com
?, Default). Split (vbCrLf) (... ) Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von "greenVB-user" ( 16. Februar 2011, 16:39) Ist vielleicht etwas umständlich, aber mir ist nichts anderes eingefallen^^: Dim reader as new StreamReader( "PfadZurDatei") Dim text as string Dim zeile as integer Do text = adLine() zeile + = 1 If zeile = 5 then = text Exit do End if Loop reader. Vb bestimmte zeile einer txt datei auslesen | Computer PC Forum auch ohne Anmeldung - Hilfe im PCMasters Hardware Forum. Close () Die Funktion von Animix geht natürlich auch. Einfach eine Variable erstellen die den Text der Zeile zugewiesen bekommt und dann einfach Abfragen, also If ergebnis = "irgendwas" Then Irgendwas.. Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von " Kraizy " ( 16. Februar 2011, 17:31) 2 Benutzer haben hier geschrieben Gast (3) Kraizy (1) Sonstige Problemstellungen »
Hallo Dominik und willkommen, zum Lesen von Textdateien gibt es viele Möglichkeiten. Das sollte ein Anreiz für dich sein, selbst in der SDK-Doku/MSDN/Hilfe zu blättern; dort gibt es unter Lesen von Textdateien und den anderen Links unter " Gewusst wie " eine Reihe von Verfahren. Konkret: 1. Dein Befehl liest ja auch nur eine Zeile. Wenn du das um eine while -Schleife erweiterst, kannst du mehr lesen. 2. Einfacher geht es mit adAllLines: Dann bekommst du mit einem einzigen Befehl alle Zeilen in einen String-Array, das du direkt danach bearbeiten kannst. 3. Direkt an eine bestimmte Zeile zu springen (also schon den Read-Befehl zu positionieren) ist nicht möglich, weil Zeilen immer unterschiedlich lang sind. Der Anfang einer bestimmten Zeile kann nur dadurch erkannt werden, dass die Datei vollständig durchlaufen wird (bei 1. in der while-Schleife, bei 2. durch den ganzen Befehl). Vba textdatei bestimmte zeile auslesen in e. Viel Erfolg! Jürgen PS. Die deutsche Sprache kennt Groß- und Kleinschreibung und Satzzeichen. Wenn man das beachtet, wird das Verständnis beim Lesen ungemein erleichtert.
*Smilie Ich bevorzuge daher late binding: Code: Two cents und Grüße Ralf Vielen Dank für eure schnelle und wertvolle Unterstützung, Storax und Ralf. Das Sub habe ich bereits getestet und läuft (wie erwartet) problemlos. Um die Implementierung werde ich mich selber kümmern können. Nochmals vielen Dank und einen schönen Tag. Viele Grüße Chris Hallo zusammen, ich melde mich wieder, da ich vor einer Herausforderung stehe. Mit dem von Storax geschriebenen/geposteten Sub lassen sich einzelne Zeilen sehr gut aus einer Datei auslesen. Vba textdatei bestimmte zeile auslesen download. Bedingung hierfür ist jedoch, dass die Textdatei nicht zu groß ist. Da das bei mir allerdings rein theoretisch der Fall sein könnnte, muss ich dies in Betracht ziehen. Daher stellt sich mir die Frage, ob es auch einen anderen Lösungsweg gibt, eine Funktion zu schreiben, die eine bestimmte Zeile (definiert über die Zeilenzahl) aus sehr großen Dateien einließt, ohne den gesamten Text einer Textdatei vor dem Durchsuchen in einer Variablen abzuspeichern. Mein Sub ist hier (wahrscheinlich) nicht von Interesse, da meiner Meinung die Rahmenbedingungen klar definiert sind.
Hallo Leute, ich hätte ein kleines Vorhaben. Ich möchte eine VBS-Datei schreiben. Es soll so ablaufen: Man gibt ein Wort ein, nach dem in einer Word-Datei (wenn's nicht geht, dann) gesucht wird. Es wird die gesamte Zeile, in der das Wort steht, ausgegeben. Es wird die darauf folgende Zeile ausgegeben. Ist eigentlich mega simpel, aber ich krieg es nicht auf die Reihe. Textdatei zeile auslesen, ändern und wieder speichern an gleicher stelle? - Sonstige Problemstellungen - VB-Paradise 2.0 – Die große Visual-Basic- und .NET-Community. Für Lösungsansätz, Denkanstöße und Lösungen wäre ich dankbar. =) MfG, Arthur Vom Fragesteller als hilfreich ausgezeichnet Das ist relativ einfach: Als erstes brauchst Du ein TextStreamObjekt oder WordDocumentObject – je nach Datei-Typ. Das TextStreamObjekt ist aber einfacher zu händeln. In das TextStreamObjekt lädtst Du dann die Datei und läufst den Inhalt Zeile für Zeile durch und prüfst dabei, ob das gesuchte Wort in dem String enthalten ist und gibst das dann aus. Hier mal ein Muster-Code (Declares nicht vergessen! ): Set fso = CreateObject("leSystemObject") fn = "C:\Mein\Pfad\zu\" strSearch = "Bubblegum" Set f = tFile(fn) Set ts = AsTestStream(ForReading) Do While Not EndOfStream line = adLine If Instr(1, line, strSearch) Then line End If Loop Das war es schon.
Falls jedoch weitere Fragen auftauchen sollten, werde ich diese schnellstmöglich beantworten! Ich bin (wieder einmal *Smilie für jede Hilfe dankbar! lg Chris Worin siehst Du da ein Problem? Mit Beliebige Datei einlesen beherrscht man perfromant auch größere Dateien, in meiner Wahrnehmung bis etwa 2 GB. Auf eine bestimmte Zeile käme man dann z. Vba textdatei bestimmte zeile auslesen full. B. per Split. Wenn man etwas mehr über die Struktur der Textdatei wüsste, könnte man über weitere Ansätze nachdenken, siehe bestimmte Anzahl der letzten Datensätze einer Textdatei auslesen Guten Morgen, vielen Dank für die Rückmeldung, xlph & Eberhard. @xlph Einen ähnlichen Code habe ich auch bereits versucht, siehe nachfolgend: Code: Leider werden nur die ersten benötigten Zeilen meiner Textdatei in Excel ausgelesen, bevor Excel letztendlich abstüotzdem, vielen Dank für dein Engagement! @Eberhard aka ebs17 Bisher hatte ich bei kleinen Testdateien kein Problem, die Textdatei in eine Variable einzuspeichern, so wie es der Code von "Storax" macht. Bei der Verarbeitung größerer Textdateien stürzte Excel ab.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch Ein guter. NET-Snippetkonverter (der ist verfügbar). Programmierfragen über PN / Konversation werden ignoriert! danke für die schnelle antwort Das mit dem Read haut nun hin. Private Sub Form1_Load( ByVal sender As System. Object, ByVal e As System. Bestimmte Zeile auslesen | myCSharp.de. EventArgs) Handles MyBase Dim Lines() As String = ( "C:/") = Lines( 0) = Lines( 1) = Lines( 2) Aber das mit dem Button Save als Write nicht so wirklich. Wollte es so probiere, aber das klappt leider nicht Private Sub Button1_Click( ByVal sender As System. EventArgs) Handles Dim Lines() As String ( "C:/", Lines) Gruß, Delivery. Delivery schrieb: aber das klappt leider nicht Ja was passiert denn mit Deinem String-Array? - Nüscht. Zu musst diesem die Werte zuweisen: Dim Lines() = New String ( 2) {} Lines( 0) = Lines( 1) = Lines( 2) = ( "C:\temp\", Lines) oder noch kürzer Dim Lines() = {,, } Sonstige Problemstellungen »