Diese Seite ist unverschlüsselt! Um sicherzustellen, das Ihr Passwort nicht ausgelesen werden kann, sollten Sie auf die verschlüsselte Seite wechseln!

    Herzlich Willkommen, lieber Gast!
  Sie befinden sich hier:

  Forum » Visual Basic 6.0 / VBA » Textdatei?
Forum | Hilfe | Team | Links | Impressum | > Suche < | Mitglieder | Registrieren | Einloggen
  Quicklinks: MSDN-Online || STL || clib Reference Grundlagen || Literatur || E-Books || Zubehör || > F.A.Q. < || Downloads   

Autor Thread - Seiten: [ 1 ] > 2 < [ 3 ]
010
01.03.2004, 18:33 Uhr
~Regless
Gast


Habs jetz genial geschaft


Visual Basic:
Private Sub save_Click()
Dialog1.InitDir = ApiPath + "\Notizen"
Dialog1.Filter = "*.txt (Textdatei)|*.map|*.* (Alle Dateien)|*.*"
Dialog1.DialogTitle = "Notiz speichern unter..."
Dialog1.Flags = cdlOFNFileMustExist + cdlOFNHideReadOnly + cdlOFNNoChangeDir + cdlOFNPathMustExist + cdlOFNOverwritePrompt
Dialog1.ShowSave
SaveFile Dialog1.FileName, Form1.Text1.Text
End Sub


Jetz habich noch problem mit der "Open" funktion... der kapiert nich dass er die txt-datei in textfeld1 anzeigen soll wennich öffne... hm... wenner speichert dann ist das was im textfeld steht als txt datei gespeichert..
Aber wie gesagt beim öffnen is prob...


Visual Basic:
OpenFile Dialog1.FileName, Form1.Text1.Text


steht auch beim speichern nur dass nich OpenFile sondern SaveFile oder so...
Und wie gesagt.... da klappts...

Und der Fehler dass en Laufzeitfehler komtm wenn man auf Abbrechen klickt ist hiermit
"
Visual Basic:
Private Sub save_Click()
Dialog1.InitDir = ApiPath + "\Notizen"
Dialog1.Filter = "*.txt (Textdatei)|*.map|*.* (Alle Dateien)|*.*"
Dialog1.DialogTitle = "Notiz speichern unter..."
Dialog1.Flags = cdlOFNFileMustExist + cdlOFNHideReadOnly + cdlOFNNoChangeDir + cdlOFNPathMustExist + cdlOFNOverwritePrompt
Dialog1.ShowSave
SaveFile Dialog1.FileName, Form1.Text1.Text
End Sub
"

auch weg... keine ahnung wieso...
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
011
01.03.2004, 18:38 Uhr
~Marcos
Gast


Also das script sieht so aus?


Visual Basic:
Public Sub OpenFile(FileName As String, ByRef Text As String)
    Dim fno As Integer
    Dim tmp As String
    Text = ""
    fno = FreeFile
    Open FileName For Input As #fno
    Do Until EOF(fno)
       Line Input #fno, tmp
       Text = Text & vbCrLf & tmp
    Loop
    Close #fno
End Sub

Public Sub SaveFile(FileName As String, Text As String)
    Dim fno As Integer
    fno = FreeFile
    Open FileName For Output As #fno
    Print #fno, Text
    Close #fno
End Sub

Private Sub open_Click()
Dialog1.InitDir = ApiPath + "\notizen"
Dialog1.Filter = "*.txt (Textdatei)|*.txt|*.* (Alle Dateien)|*.*"
Dialog1.DialogTitle = "Notiz öffnen"
Dialog1.Flags = cdlOFNFileMustExist + cdlOFNHideReadOnly + cdlOFNNoChangeDir + cdlOFNPathMustExist
Dialog1.ShowOpen
OpenFile Dialog1.FileName, Form1.Text1.Text
End Sub

Private Sub save_Click()
Dialog1.InitDir = ApiPath + "\Notizen"
Dialog1.Filter = "*.txt (Textdatei)|*.map|*.* (Alle Dateien)|*.*"
Dialog1.DialogTitle = "Notiz speichern unter..."
Dialog1.Flags = cdlOFNFileMustExist + cdlOFNHideReadOnly + cdlOFNNoChangeDir + cdlOFNPathMustExist + cdlOFNOverwritePrompt
Dialog1.ShowSave
SaveFile Dialog1.FileName, Form1.Text1.Text
End Sub
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
012
01.03.2004, 18:39 Uhr
~Regless
Gast


jo... genau so...
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
013
01.03.2004, 19:21 Uhr
~Regless
Gast


Ups...Hab mich geirrt... Der Fehler der kommt wenn man auf Abbrechen klickt ist immer noch da...
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
014
03.03.2004, 18:30 Uhr
~Marcos
Gast


hm..komisch..dann weiß ich auchnich....
musst mal experten wie pablo fragen...
Also deine probleme sind:

- Wenn du auf Abbrechen bei öffnen oder Speicherndialog drückst kommt Laufzeitfehler

- Das mit dem öffnen klappt nich
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
015
03.03.2004, 18:46 Uhr
Pablo
Supertux
(Operator)


Damit die Fehler nicht auftretten, (ihr habt wahrscheinlich CommonDialog so eingestellt, dass die Fehler des Benutzer als Laufzeitsfehler angezeigt werden, dann kann man abstellen, weiß ich aber nicht mehr wie, ich glaube, man kann das mit den Flags machen) müsst ihr die Fehler auffangen.

Ganz am Anfang vor einer Funktion

Visual Basic:
Public Sub OpenFile(FileName As String, ByRef Text As String)
    On Error Goto error_catch
    Dim fno As Integer
    Dim tmp As String
    Text = ""
    fno = FreeFile
    Open FileName For Input As #fno
    Do Until EOF(fno)
       Line Input #fno, tmp
       Text = Text & vbCrLf & tmp
    Loop
    Close #fno
    Exit Sub
error_catch:
' Verschiedene Fehler können hier entdeckt werden, ihr müsst die Doku zu Err lesen
' Außerdem zu den Nummern der Fehler von CommonDialog lesen, schaut doch die MSDN
' If Err.Number = ...... falls ihr die Nummer des Fehler kennt, könnt ihr sogar wissen
' welche Fehler auftretten und wie sie zu beheben sind

End Sub

--
A! Elbereth Gilthoniel!
silivren penna míriel
o menel aglar elenath,
Gilthoniel, A! Elbereth!
Dieser Post wurde am 03.03.2004 um 18:46 Uhr von Pablo editiert.
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
016
04.03.2004, 15:14 Uhr
~Regless
Gast


Also das mit dem öffnen geht immernoch nich...
komisch..
Und bei VB sieht der fehler so aus:
www.b-game.de/vb6/fehlervb.jpg

und bei windows XP:
www.b-game.de/vb6/fehlerxp.jpg

...
PS:
Ich bin sogut wie Newbie in VB...
Bin aber dabei es zu lernen...
Also helft mir bitte ein bisschen :
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
017
04.03.2004, 17:06 Uhr
Pablo
Supertux
(Operator)


hast du das benutzt, was ich vorhin gesagt habe? On Error goto ....?
--
A! Elbereth Gilthoniel!
silivren penna míriel
o menel aglar elenath,
Gilthoniel, A! Elbereth!
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
018
05.03.2004, 14:10 Uhr
~Regless
Gast


also so irgendwie:


Visual Basic:
Public Sub OpenFile(FileName As String, ByRef Text As String)
    On Error Goto error_catch
    Dim fno As Integer
    Dim tmp As String
    Text = ""
    fno = FreeFile
    Open FileName For Input As #fno
    Do Until EOF(fno)
       Line Input #fno, tmp
       Text = Text & vbCrLf & tmp
    Loop
    Close #fno
    Exit Sub
error_catch:
on Error '75 Runtime error' , do nothing
End Sub

oder so?

der soll einfach wenn en fehler kommt den fehler auslassen das erst garkeine fehler kommen...
Und wieso kommten fehler wenn man auf abbrechen klickt
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
019
05.03.2004, 14:14 Uhr
~Marcos
Gast


also guck mal ob klappt:


Visual Basic:
error_catch:
If Error = "75" Then
End If


bei then schriebste hin was der dann machen soll...
wennde nichts hinschreibst macht der dann auch nichts...
Weiß nich obs klappt... Pablo guck mal nach
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
Seiten: [ 1 ] > 2 < [ 3 ]     [ Visual Basic 6.0 / VBA ]  


ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: