vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 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: Exkulsiven zugriff auf dateien 
Autor: dbayer
Datum: 28.01.03 16:47
An einfachsten so:
Global Const DateiNummer=255

Function LESEN_SCHREIBEN(ART as LONG,optional SchreibText as string) as long
'ART=
' LESEN=0
'Schreiben=1
Close#Dateinummer :'schliessen
Select case Art
Case 0
List1.clear
Open "test.txt" For Input Lock read write As #dateinummer :Hier Input!
While not eof(Dateinummer)
Input #dateinummer, sLine
List1.AddItem sLine
wend
'und geöffnet lassen
case 1
Open "test.txt" For Append Lock Read Write As #dateinummer
If SchreibText>"" then
Print #dateinummer, SchreibText
End if
end select
End sub
'aufruf mit
r=LESEN_SCHREIBEN(0) 'zum Lesen
r=LESEN_SCHREIBEN(1,"TestText") 'zum schreiben von TestText


Private Sub Form_Unload(Cancel As Integer)
Close #dateinummer
End Sub

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Exkulsiven zugriff auf dateien820Meister Phantom28.01.03 08:29
Re: Exkulsiven zugriff auf dateien593dbayer28.01.03 09:05
Re: Exkulsiven zugriff auf dateien569Meister Phantom28.01.03 09:22
Re: Exkulsiven zugriff auf dateien589dbayer28.01.03 10:06
Re: Exkulsiven zugriff auf dateien546Meister Phantom28.01.03 13:30
Re: Exkulsiven zugriff auf dateien556dbayer28.01.03 15:23
Re: Exkulsiven zugriff auf dateien599Elwood28.01.03 15:28
Re: Exkulsiven zugriff auf dateien561Meister Phantom28.01.03 15:53
Re: Exkulsiven zugriff auf dateien548dbayer28.01.03 16:07
Re: Exkulsiven zugriff auf dateien548Meister Phantom28.01.03 16:16
Re: Exkulsiven zugriff auf dateien561dbayer28.01.03 16:47
Re: Exkulsiven zugriff auf dateien574Meister Phantom29.01.03 08:24
Re: Exkulsiven zugriff auf dateien559dbayer29.01.03 10:12
Re: Exkulsiven zugriff auf dateien560Meister Phantom29.01.03 17:26
Re: Exkulsiven zugriff auf dateien560Meister Phantom30.01.03 13:56

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