vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 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: Arrey Aufsplitten! 
Autor: ModeratorDieter (Moderator)
Datum: 09.12.03 11:18

Ich würde die Daten erst gar nicht in ein Array schreiben, sondern die Datei auslesen und die einzelnen Teile sofort in eine neue Datei speichern:
Dim F As Integer
Dim N As Integer
Dim sLine As String
Dim nCounter As Long
 
F = FreeFile
Open "Textdatei.txt" For Input As #F
While Not Eof(F)
  Line Input #F, sLine
  If sLine = "$1" Then
    If N > 0 Then Close #N
 
    ' Neue Datei zum Schreiben öffnen
    nCounter = nCounter + 1
    Select Case nCounter
      Case 1
        N = FreeFile
        Open "NeueDatei_1.txt" For Output As #N
 
      Case 2
        N = FreeFile
        Open "NeueDatei_1.txt" For Output As #N
 
      Case ...
    End Select
  Else
    If N > 0 Then Print #N, sLine
  End If
Wend
Close #F
If N > 0 Then Close #N

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Arrey Aufsplitten!374Disaster09.12.03 11:11
Re: Arrey Aufsplitten!229ModeratorDieter09.12.03 11:18
Re: Arrey Aufsplitten!203Disaster09.12.03 11:52

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