vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 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: Disaster
Datum: 09.12.03 11:52

Hi..

Danke für die schnelle Antwort..

habs so gemacht: deines ohne select case.. und ist super schnell
Dim F As Integer
Dim N As Integer
Dim sLine As String
Dim nCounter As Long
 
F = FreeFile
Open "c:\w1" 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
 
        N = FreeFile
        Open "c:\NeueDatei_" & nCounter & ".txt" For Output As #N
  Else
    If N > 0 Then Print #N, sLine
  End If
Wend
Close #F
If N > 0 Then Close #N
Also danke für die Hilfe

mfg
Disaster
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!204Disaster09.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