Ankündigung

Einklappen
Keine Ankündigung bisher.

externe Dateien

Einklappen
X
 
  • Filter
  • Zeit
  • Anzeigen
Alles löschen
neue Beiträge

  • externe Dateien

    hallo,

    ich bastel zur zeit an einem kleinen Programm, welches ich in Visual Basic 6 schreibe.
    nun bin ich an der stelle, wo ich variablen in einer .txt oder so abspeichern will!-und dann logischer weiße die werte aus der .txt wieder auslesen will und weiter damit arbeiten will...!

    kann mir einer ne vorlage geben, wie ich das anstellen kann?

    Sebgo
    Ex-Koch unserer Hoheit Gandalf

  • #2
    hier hab ich mal ne Sub um den Zugriff auf die Datei zu prüfen

    Code:
    Function IsFileOpen(filename As String)
        Dim filenum As Integer, errnum As Integer
    
        On Error Resume Next   ' Fehlerprüfung deaktivieren.
        filenum = FreeFile()   ' Freie Dateinummer besorgen.
        ' Versuchen, die Datei zu öffnen und zu sperren.
        Open filename For Input Lock Read As #filenum
        Close filenum          ' Datei schließen.
        errnum = Err           ' Fehlernummer speichern.
        On Error GoTo 0        ' Fehlerprüfung reaktivieren.
    
        ' Überprüfen, welcher Fehler aufgetreten ist.
        Select Case errnum
    
            ' Kein Fehler.
            ' Datei NICHT durch anderen Benutzer geöffnet.
            Case 0
             IsFileOpen = False
    
            ' Fehlernummer für "Zugriff verweigert."
            ' Datei bereits durch anderen Benutzer geöffnet.
            Case 70
                IsFileOpen = True
    
            ' Ein weiterer Fehler ist aufgetreten.
            Case Else
                msgbox errnum
                IsFileOpen = False
        End Select
    
    End Function
    Zuletzt geändert von Xheon; 29.06.2005, 12:54.
    Wenn man alles ausgeschaltet hat, was unmöglich ist, bleibt am Ende etwas übrig, das die Wahrheit enthalten muss

    Kommentar


    • #3
      zum schreiben:

      Code:
      temp="1234"
      L = FreeFile
      lfile = App.Path + "\test.txt"
      
      If IsFileOpen(lfile) Then
       MsgBox "Datei ist bereits geöffnet", vbCritical, "Fehler"
          Exit Sub
      else
      Open lfile For Binary As #L
            Seek #L, 1
            Put #L, , temp
      Close #L
      end if
      Wenn man alles ausgeschaltet hat, was unmöglich ist, bleibt am Ende etwas übrig, das die Wahrheit enthalten muss

      Kommentar


      • #4
        zum lesen:

        Code:
        L = FreeFile
        lfile = App.Path + "\test.txt"
        
        If IsFileOpen(lfile) Then
         MsgBox "Datei ist bereits geöffnet", vbCritical, "Fehler"
            Exit Sub
        else
            Open lfile For Binary As #L
                Get #L, , temp
            Close #L
           msgbox temp
        end if
        Wenn man alles ausgeschaltet hat, was unmöglich ist, bleibt am Ende etwas übrig, das die Wahrheit enthalten muss

        Kommentar


        • #5
          danke erstmal, aber was bitte bedeuten diese "#" immer???
          Ex-Koch unserer Hoheit Gandalf

          Kommentar


          • #6
            #text oder gibt an in welchen File die änderungen gemacht werden

            kannst auch #1 ist ein Variable für Dateizugriff
            Wenn man alles ausgeschaltet hat, was unmöglich ist, bleibt am Ende etwas übrig, das die Wahrheit enthalten muss

            Kommentar


            • #7
              Ohh, in Delphi ist das ja viel einfacher!
              Ich liebe Delphi

              grz zer00

              Kommentar


              • #8
                Original geschrieben von zer00
                Ohh, in Delphi ist das ja viel einfacher!
                Ich liebe Delphi

                grz zer00
                Das ist halt vb - c++ ist eh besser Aber schwieriger als VB
                Wenn man alles ausgeschaltet hat, was unmöglich ist, bleibt am Ende etwas übrig, das die Wahrheit enthalten muss

                Kommentar


                • #9
                  Und C#?

                  grz zer00

                  Kommentar


                  • #10
                    Original geschrieben von zer00
                    Und C#?

                    grz zer00
                    igit - weg damit *brrrrr*
                    Wenn man alles ausgeschaltet hat, was unmöglich ist, bleibt am Ende etwas übrig, das die Wahrheit enthalten muss

                    Kommentar

                    Lädt...
                    X