Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Schreiben in leere Datei

Frage Entwicklung VB for Applications

Mitglied: mctini

mctini (Level 1) - Jetzt verbinden

19.01.2009, aktualisiert 11.12.2009, 4600 Aufrufe, 3 Kommentare

String ans Ende einer Datei

Set Datei = CreateObject("Scripting.FileSystemObject").OpenTextFile(DateiAus, 8)
'Set Datei = fso.CreateTextFile(DateiEin, True)
Datei.WriteLine "ende"
Datei.Close
Die funktioniert, solange die Datei nicht leer ist.

Ich möchte gerne Eine Datei prüfen ob vorhanden und an das Ende der Datei einen String schreiben ("ende")

AUch dann wenn die Datei leer ist
Mitglied: seTTembrinY
19.01.2009 um 17:07 Uhr
Hi,

prüfe doch vorher die Grösse mit
If Datei.Size > 0 Then
xxx
else
yyy
end if

Und hier solltest bzgl der Syntax auch fündig werden. http://msdn.microsoft.com/en-us/library/czxefwt8(VS.85).aspx


Gruß,
Sven
Bitte warten ..
Mitglied: bastla
19.01.2009 um 17:12 Uhr
Hallo mctini!

Das Schreiben auch in eine leere Datei sollte mit dem von Dir vorgeschlagenen "Append" (,8) kein Problem sein - bliebe nur, vorweg zu prüfen, ob die Datei bereits existiert:
01.
DateiAus = "D:\Test.txt" 
02.
Set fso = CreateObject("Scripting.FileSystemObject") 
03.
If fso.FileExists(DateiAus) Then 
04.
    Set Datei = fso.OpenTextFile(DateiAus, 8) 
05.
Else 
06.
    Set Datei = fso.CreateTextFile(DateiAus) 
07.
End If 
08.
Datei.WriteLine "ende" 
09.
Datei.Close
[Edit]
Wieso einfach, wenn es doch auch schön umständlich geht ...

Natürlich funktioniert das "Append" auch, wenn es die Zieldatei noch nicht gibt - dazu den dritten Parameter ("Create") auf True oder 1 setzen:
01.
DateiAus = "D:\Test.txt" 
02.
Set fso = CreateObject("Scripting.FileSystemObject") 
03.
Set Datei = fso.OpenTextFile(DateiAus, 8, 1) 
04.
Datei.WriteLine "ende" 
05.
Datei.Close
[/Edit]

Grüße
bastla
Bitte warten ..
Mitglied: mctini
20.01.2009 um 09:30 Uhr
Ja stimmt es funktioniert auch wenn die Datei leer ist.

Trotzdem bekomme ich von Zeit zu Zeit eine Fehlermeldung.. Zugriff verweigert.
Es liegt mit Sicherheit daran das die Datei von einer anderen Anwendung geöffnet ist.

Die Flashanimation greift alle 20 sec. zum auslesen der Datei auf die DatAus. also sollte ich hier wohl prüfen
ob die Datei geöffnet ist.

Nur leider reichen meine Kenntnisse bei Weitem nicht um diese Abfrage zu schreiben.

Wenn es Sinn macht stelle ich mir es so vor.

Schleife solage bis Datei geschlossen, wenn Zugriff vorhanden dann lösche alles was |S| hat und beschränke auf Zeilen Anzahl.(letzteres geht ja schon hervorragend)
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Batch & Shell
gelöst Aktueller Besitzer der aktuellen Datei herausfinden und in Variable schreiben (11)

Frage von Peter32 zum Thema Batch & Shell ...

Batch & Shell
gelöst Batch-Skript: Messdaten in Textdatei finden und in eine neue Datei schreiben (5)

Frage von habmalnefrage zum Thema Batch & Shell ...

VB for Applications
gelöst Schreiben in andere Excel-Datei macht Worksheet unsichtbar (5)

Frage von Albatros91 zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (21)

Frage von Xaero1982 zum Thema Microsoft ...

Windows Update
Treiberinstallation durch Windows Update läßt sich nicht verhindern (17)

Frage von liquidbase zum Thema Windows Update ...

Windows Tools
gelöst Aussendienst Datensynchronisierung (12)

Frage von lighningcrow zum Thema Windows Tools ...

Windows Server
RODC über VPN - Verbindung weg (10)

Frage von stefan2k1 zum Thema Windows Server ...