vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 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: Tool zum auslesen von Textdateien und ersetzen von Zeichen 
Autor: zeno
Datum: 15.11.06 12:23

Private Sub cmdEinlesen_Click()


Dim fso As New FileSystemObject

Dim fi As File

Dim F As Integer
Dim sInhalt As String


For Each fi In fso.GetFolder("C:\edi")

If UCase(Right(fi.Name, 3)) = "EDI" Then

'datei einlesen und anzeigen

End If

Next fi

Dim F As Integer
Dim sInhalt As String


F = FreeFile

'datei komplett einlesen

Open fi.Name For Binary As #F
sInhalt = Space$(LOF(F))
Get #F, , sInhalt
Close #F

txtEdi.Text = sInhalt

End Sub


Ich danke dir nochmals für deine Hilfe aber irgendwie bekomme ich eine fehlermeldung bei

Dim fso As New FileSystemObject

sobald ich auf den Button Einlesen klicke wird diese Zeile markiert...


leider ist mir auch nicht ganz klar was an dieser stelle passiert

For Each fi In fso.GetFolder("C:\edi")

If UCase(Right(fi.Name, 3)) = "EDI" Then

'datei einlesen und anzeigen

End If

Next fi
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Tool zum auslesen von Textdateien und ersetzen von Zeichen1.094zeno14.11.06 09:59
Re: Tool zum auslesen von Textdateien und ersetzen von Zeich...659steanberg14.11.06 10:08
Re: Tool zum auslesen von Textdateien und ersetzen von Zeich...628zeno14.11.06 11:35
Re: Tool zum auslesen von Textdateien und ersetzen von Zeich...626zeno14.11.06 11:57
Re: Tool zum auslesen von Textdateien und ersetzen von Zeich...637steanberg14.11.06 13:39
Re: Tool zum auslesen von Textdateien und ersetzen von Zeich...612zeno14.11.06 16:54
Re: Tool zum auslesen von Textdateien und ersetzen von Zeich...572steanberg15.11.06 08:53
Re: Tool zum auslesen von Textdateien und ersetzen von Zeich...624zeno15.11.06 12:23
Re: Tool zum auslesen von Textdateien und ersetzen von Zeich...677steanberg15.11.06 13:11
Re: Tool zum auslesen von Textdateien und ersetzen von Zeich...679zeno17.11.06 13:08
Re: Tool zum auslesen von Textdateien und ersetzen von Zeich...589steanberg17.11.06 13:43
Re: Tool zum auslesen von Textdateien und ersetzen von Zeich...608zeno17.11.06 13:59
Re: Tool zum auslesen von Textdateien und ersetzen von Zeich...599steanberg17.11.06 14:03
Re: Tool zum auslesen von Textdateien und ersetzen von Zeich...637steanberg17.11.06 14:05
Re: Tool zum auslesen von Textdateien und ersetzen von Zeich...644zeno17.11.06 14:47
Re: Tool zum auslesen von Textdateien und ersetzen von Zeich...626steanberg17.11.06 15:05
Re: Tool zum auslesen von Textdateien und ersetzen von Zeich...590zeno17.11.06 15:39
Re: Tool zum auslesen von Textdateien und ersetzen von Zeich...585zeno20.11.06 13:18
Re: Tool zum auslesen von Textdateien und ersetzen von Zeich...604Prian081520.11.06 16:21
Re: Tool zum auslesen von Textdateien und ersetzen von Zeich...631zeno21.11.06 10:17
Re: Tool zum auslesen von Textdateien und ersetzen von Zeich...688steanberg21.11.06 10:32
Re: Tool zum auslesen von Textdateien und ersetzen von Zeich...634zeno21.11.06 13:48
Re: Tool zum auslesen von Textdateien und ersetzen von Zeich...634steanberg21.11.06 14:38
Re: Tool zum auslesen von Textdateien und ersetzen von Zeich...581Prian081521.11.06 12:36
Re: Tool zum auslesen von Textdateien und ersetzen von Zeich...657zeno21.11.06 15:33

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