vb@rchiv · Diskussionsforen · Re: Dateibetrachter

VB Classic
VB.NET
ADO.NET
VBA
C#

sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5

HOME WORKSHOPS TIPPS & TRICKS BEFEHLSREFERENZ API-REFERENZ FAQ

··· FORUM

Forenübersicht Suchen Forumsregeln

Allgemeine Foren

Allgemeine Fragen Fragen zur vb@rchiv CD Tipps & Workshops Suche VB Code

VB.NET, C#

Ein-/Umsteiger Fortgeschrittene ADO.NET/Datenbanken ASP.NET/WebServices C# Ecke

VB Classic 5/6, VBA

Einsteiger Fortgeschrittene ActiveX Datenbanken Windows API VB Skript (VBS)

Sonderforen

sev-Komponenten Jobs Suche/Gesuche Projekte & Betatester

DOWNLOAD TOOLBESPRECHUNG BÜCHERECKE MARKETPLACE GRAFIK & DESIGN VB-SEITEN

[474 User online]
[429 im Forum]

Partnerseiten
Top 5 Partnerlinks

Weitere...

Entwickler / Welt

··· Diskussionsforen · Visual-Basic Einsteiger

Sie sind aktuell nicht angemeldet. Funktionen: Einloggen | Neu registrieren | Suchen

Visual-Basic Einsteiger

Re: Dateibetrachter

Autor: Levis
Datum: 31.12.01 15:28

1. Ich zeige sie in der TextBox an 2. bei einer datei, die 151 kb groß ist passiert der Fehler, wobei bei einer anderen, die 301 kb groß ist, nichts passiert... 3. fnum = FreeFile 'Pfad auslesen + Fehlerbehebung strPfad = CStr(frmMain.txtPfad.Text) 'Datei zeilenweise öffnen + Fehlerbehebung On Error GoTo err_DateiOeffnen Open strPfad For Input As #fnum On Error GoTo 0 On Error GoTo err_DateiBearbeiten Do Until EOF(fnum) 'strZeile entleeren strZeile = "" 'Zeile öffnen Line Input #fnum, strZeile 'Zeile der Textbox hinzufügen frmMain.txtDatei.Text = frmMain.txtDatei.Text & strZeile & vbCrLf 'Zeilen zählen intAnzahlZeilen = intAnzahlZeilen + 1 Loop On Error GoTo 0 'Datei schließen Close #fnum

alle Nachrichten anzeigen

Gesamtübersicht | Zum Thema | Suchen

Thema

Views

Autor

Datum

Dateibetrachter	55	Levis	31.12.01 15:04
Re: Dateibetrachter	309	Dieter	31.12.01 15:10
Re: Dateibetrachter	36	Levis	31.12.01 15:28
Re: Dateibetrachter	359	Dieter	31.12.01 15:37
Re: Dateibetrachter	33	Levis	31.12.01 16:20
Schlimmer Bug!	34	Levis	31.12.01 16:53
Re: Schlimmer Bug!	302	unbekannt	31.12.01 17:03
Und wie abstellen?	32	Levis	31.12.01 17:13
?	32	Levis	01.01.02 15:40
Re: ?	316	unbekannt	01.01.02 15:58
Sorry, aber...	37	Levis	01.01.02 16:26

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übersicht Suchen

sevGraph (VB/VBA)

Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig!

Weitere Infos

Tipp des Monats

November 2025
Heinz Prelle

Datei-Mehrfachauswahl an eine ListBox übergeben

Dieser Tipp zeigt, wie Sie über den Windows-CommonDialog eine Mehrfach-Dateiauswal realisieren...

Details

Access-Tools Vol.1

Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB

Nur 24,95 EUR
Weitere Infos

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