vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Blitzschnelles Erstellen von grafischen Diagrammen!  
 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: ftp (unix) - datei laden 
Autor: ModeratorDieter (Moderator)
Datum: 24.01.02 10:08
Hi Matthias,

hier der VB-Code, der die heruntergeladene Datendatei nach Ascii konvertiert: 
<code>  <font color=#000099>Dim</font> F <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> sInhalt <font color=#000099>As</font> <font _
  color=#000099>String</font>
  <font color=#000099>Dim</font> sLines() <font color=#000099>As</font> <font _
  color=#000099>String</font>
  <font color=#000099>Dim</font> I <font color=#000099>As</font> <font _
  color=#000099>Long</font>
 
  <font color=green>' Datei (im binärformat)</font>
  sFile = "DeineDownloadDatei.dat"
 
  <font color=green>' Gesamten Inhalt einlesen</font>
  F = FreeFile
  <font color=#000099>Open</font> sFile <font color=#000099>For</font> <font _
    color=#000099>Binary</font> <font color=#000099>As</font> #F
  sInhalt = Space$(LOF(F))
  Get #F, , sInhalt
  <font color=#000099>Close</font> #F
 
  <font color=green>' Inhalt in einzelne Zeilen "splitten"</font>
  sLines = Split(sInhalt, Chr(10))
 
  <font color=green>' Neue Datei (ASCII-Daten)</font>
  sFile = "DeineAsciiDatei.dat"
 
  <font color=green>' Alle Zeilen einzeln speichern</font>
  F = FreeFile
  <font color=#000099>Open</font> sFile <font color=#000099>For</font> <font _
    color=#000099>Output</font> <font color=#000099>As</font> #F
  <font color=#000099>For</font> I = 0 <font color=#000099>To</font> <font _
  color=#000099>UBound</font>(sLines)
    <font color=#000099>If</font> sLines(I) <> "" <font _
    color=#000099>Then</font> <font color=#000099>Print</font> #F, sLines(I)
  <font color=#000099>Next</font> I
  <font color=#000099>Close</font> #F</code>
Cu
Dieter
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
ftp (unix) - datei laden40Matthias24.01.02 08:36
Re: ftp (unix) - datei laden254ModeratorDieter24.01.02 09:26
Re: ftp (unix) - datei laden27Matthias24.01.02 09:41
Re: ftp (unix) - datei laden276ModeratorDieter24.01.02 09:54
Re: ftp (unix) - datei laden30Matthias24.01.02 10:02
Re: ftp (unix) - datei laden263ModeratorDieter24.01.02 10:08

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