vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 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

Allgemeine Diskussionen
Re: Helft mir einer bitte? 
Autor: ModeratorDieter (Moderator)
Datum: 27.02.02 09:01
Hi Maik,

hier die Lösung: 
<code><font color=#000099>Private</font> <font color=#000099>Sub</font> _
  cmdTest1_Click()
  <font color=#000099>Dim</font> F <font color=#000099>As</font> <font _
  color=#000099>Integer</font>
  <font color=#000099>Dim</font> N <font color=#000099>As</font> <font _
  color=#000099>Integer</font>
  <font color=#000099>Dim</font> sFile <font color=#000099>As</font> <font _
  color=#000099>String</font>
  <font color=#000099>Dim</font> sLine <font color=#000099>As</font> <font _
  color=#000099>String</font>
  <font color=#000099>Dim</font> lPos <font color=#000099>As</font> <font _
  color=#000099>Long</font>
  <font color=#000099>Dim</font> sFileTmp <font color=#000099>As</font> <font _
  color=#000099>String</font>
 
  sFile = App.Path & "a.txt"
  sFileTmp = App.Path & "a.$$$"
 
  <font color=green>' Dateien öffnen</font>
  F = FreeFile: <font color=#000099>Open</font> sFile <font _
    color=#000099>For</font> <font color=#000099>Input</font> <font _
    color=#000099>As</font> #F
  N = FreeFile: <font color=#000099>Open</font> sFileTmp <font _
  color=#000099>For</font> <font color=#000099>Output</font> <font _
  color=#000099>As</font> #N
 
  <font color=green>' zeilenweise einlesen</font>
  <font color=#000099>While</font> <font color=#000099>Not</font> EOF(F)
    <font color=#000099>Line</font> <font color=#000099>Input</font> #F, sLine
 
    <font color=green>' nach Leerzeichen suchen</font>
    <font color=#000099>Do</font>
      lPos = InStr(sLine, " ")
      <font color=#000099>If</font> lPos > 0 <font color=#000099>Then</font>
        <font color=green>' in temporäre Datei speichern</font>
        <font color=#000099>Print</font> #N, Left(sLine, lPos - 1)
        sLine = LTrim(Mid(sLine, lPos + 1))
      <font color=#000099>Else</font>
        <font color=#000099>Print</font> #N, sLine
        <font color=#000099>Exit</font> <font color=#000099>Do</font>
      <font color=#000099>End</font> <font color=#000099>If</font>
    <font color=#000099>Loop</font> <font color=#000099>Until</font> lPos = 0
  <font color=#000099>Wend</font>
  <font color=#000099>Close</font> #F: <font color=#000099>Close</font> #N
 
  <font color=green>' Originaldatei löschen</font>
  Kill sFile
 
  <font color=green>' temporäre Datei in Originaldatei umbenennen</font>
  Name sFileTmp <font color=#000099>As</font> sFile
<font color=#000099>End</font> <font color=#000099>Sub</font></code>
Cu
Dieter
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Helft mir einer bitte?84M_Weckner27.02.02 06:55
Re: Helft mir einer bitte?269ModeratorDieter27.02.02 09:01
Re: Helft mir einer bitte?46M_Weckner27.02.02 09:19
Es fehlt doch nur der Backslash247ModeratorDieter27.02.02 09:26
Trotzdem kommt der fehler37M_Weckner27.02.02 09:29
Na dann wird die Datei nicht existieren251ModeratorDieter27.02.02 09:42
JUHU!!!48M_Weckner27.02.02 09:48

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