vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 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

Fortgeschrittene Programmierung
Weiß Bitte jemand mehr? 
Autor: Noura
Datum: 13.12.01 10:40

Hallo Flak!
Danke erstmal;Ich habe das probiert aber Ich bekomme den gelichen Fehler ;Also ich erkläre am besten was ich bis jetzt gemacht habe: Ich lese aus einer seriellen Schnittstelle (Gerät)eine Textdatei und weise sie einer String Variable (COM_String) zu dann öffne ich die Datei ("c:Testdata1.txt") und schreibe in sie COM_String
F = FreeFile()
Open Destinfile For Output As #F ' DestinFile = " c:Testdata1.txt"
Print #F, COM_string
Close #F
Danach rufe ich die test4 Prozedur
Public Sub test4()
readFile "C: estdata1.txt", "c:Testdestination.txt"
End Sub
readfile ist dann so definiert:
Public Sub readFile(srcFile As String, Destfile As String)
On Error GoTo err_handler
Dim cnt, F As Byte
Dim t, S, newString, newName, newMachine, newParameters As String
newString = ""
newParameters = ""
F = FreeFile()
Open srcFile For Input As #F
'Hier sind Anweisugen und sie funktionieren
'newString =.................
Close #F
F = FreeFile()
Open Destfile For Output As #F ' Zeile x
Print #F, newString
Close #F
Exit Sub
err_handler:
F = MsgBox("Fehler aufgetreten!", vbOKOnly + vbCritical, "Fehler...")
Exit Sub
End Sub
Wenn ich eine Textdatei vom Gerät das erste Mal sende dann funktionert es und wenn ich die gleiche Textdatei nochmal sende ist die MsgBox zu sehen oder ich bekomme den Laufzeitfehler : Datei bereits Geöffnet und es wird auf Zeile x gezeigt.
Frage : Wie bezwinge ich das Programm ,auch bei wiederholtem Senden dieser Textdatei, das gleiche zu tun wie beim ersten Senden ,Also nicht zu err_handler zu verzweigen.Also ich komme wirklich seit Tagen nicht weiter und für jede Hilfe bin ich sehr Dankbar .
MfG Noura
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Textdatei68Noura12.12.01 13:47
Re: Textdatei43Flak12.12.01 15:41
Re: Textdatei74Noura12.12.01 16:29
Re: Textdatei37Flak12.12.01 18:29
Weiß Bitte jemand mehr?44Noura13.12.01 10:40
Re: Weiß Bitte jemand mehr?250ModeratorDieter13.12.01 11:02
Re: Weiß Bitte jemand mehr?47Noura13.12.01 11:57
Bitte um Hilfe36Noura14.12.01 09:42

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