eVB: Dateien zum lesen/schreiben öffnen....
Ergebnis 1 bis 4 von 4
  1. HILFE!!!

    Bitte helft mir mal kurz:

    Ich habe probleme mit dem öffnen von (text)dateien mit evb. ich habe bis anhin nur in vb5+6 geproggt und komme mit den file-ctrl's nicht mehr mit...

    Die situation ist so:

    ich habe die Textdatei inhalt1.lst und inhalt2.lst im ordner "\my documents\myprog\*.lst" nun möchte ich die zum lesen öffnen, später dann zum schreiben.

    ich habe das wiefolgt probiert:

    Code:
    'Ich habe folgendes in Form1:
    'Command1   >> CommandButton
    'File1      >> File-Controll vom FilSystem-Komponent
    'File2      >>   "    "       "    "        "
    'List1      >> List-Objekt
    'List2      >>   "    "
    
    Option Explicit
    Dim varPath As String 'Ich definiere eine Variable, der ich später den Pfad "\My Documents\My Prog\" zuweisen werde.
    
    Private Sub Command1_Click()
    File1.Open varPath & inhalt1.lst, fsModeInput, fsAccessRead     'ich öffne file1
        Do While Not File1.EOF                                      'lasse jede linie bis eof (end of file) lesen
            List1.AddItem File1.LineInputString                     'schreibe jede linie in die list1 mit additem
        Next                                                        'ich wiederhole das ganze
    File1.Close                                                     'ich schliesse file1
    
    File2.Open varPath & inhalt2.lst, fsModeInput, fsAccessRead     'und nun das selbe wie oben mit file2 und list2
        Do While Not File1.EOF
            List2.AddItem File2.LineInputString
        Next
    File2.Close
    
    End Sub
    
    Private Sub Form_Load()                     'Wenn form1 ladet....
        varPath = "\My Documents\My Prog\"      '...definiere ich die variable varProg mit dem Hauptpfad.
    End Sub
    
    Private Sub Form_OKClick()
        App.End
    End Sub
    nur bekomme ich nie einen inhalt zu sehen.... im test sollte bei mir list 1 wievolgt aussehen:

    • a1
      a2
      a3
      a4
      a5

    und list2:

    • b1
      b2
      b3
      b4
      b5


    Ich bin auf jedenfall für jegliche hilfe sehr dankbar....

    mfg Christian
    0
     

  2. kenn mich mit evb nicht so aus, aber müssen pfade nicht mit "\\my documents\\file.ext" definiert werden? sonst meint er doch \ würde den beginn eines escape-codes angeben, wie \n.
    0
     

  3. Hi

    Nimm diesen Code, der funktioniert:

    Code:
    Option Explicit
    Dim varPath As String 'Ich definiere eine Variable, der ich später den Pfad "\My Documents\My Prog\" zuweisen werde.
    
    Private Sub Command1_Click()
    File1.Open varPath & "inhalt1.lst", fsModeInput, fsAccessRead     'ich öffne file1
        Do While Not File1.EOF                                      'lasse jede linie bis eof (end of file) lesen
            List1.AddItem File1.LineInputString                     'schreibe jede linie in die list1 mit additem
        Loop                                                        'ich wiederhole das ganze
    File1.Close                                                     'ich schliesse file1
    
    File1.Open varPath & "inhalt2.lst", fsModeInput, fsAccessRead     'und nun das selbe wie oben mit file2 und list2
        Do While Not File1.EOF
            List2.AddItem File1.LineInputString
        Loop
    File1.Close
    
    End Sub
    
    Private Sub Form_Load()                     'Wenn form1 ladet....
        varPath = "\My Documents\My Prog\"      '...definiere ich die variable varProg mit dem Hauptpfad.
    End Sub
    
    Private Sub Form_OKClick()
        App.End
    End Sub
    Fehler waren:

    inhalt1.lst und inhalt2.lst müssen in "" gesetzt werden
    Nach do kein next verwenden sondern loop
    Ein File-Control genügt, du kannst beide Dateien mit dem gleichen Controll nacheinander öffnen!

    Gruess

    Sven
    0
     

  4. Herzlichen Dank. Ich werds grad ausprobieren.
    0
     

Ähnliche Themen

  1. SMS mit Pocket PC schreiben und versenden
    Von Tom im Forum Plauderecke
    Antworten: 3
    Letzter Beitrag: 26.10.2007, 20:36
  2. wm5 => sms schreiben
    Von Sembi im Forum Plauderecke
    Antworten: 5
    Letzter Beitrag: 21.03.2007, 12:48
  3. wörter schreiben
    Von handyschule im Forum HTC TyTN
    Antworten: 3
    Letzter Beitrag: 17.12.2006, 10:30
  4. Qtek 9100 - PDF Dateien 5.0 oder 7.0 lesen
    Von Raini0 im Forum Qtek Forum (PPC)
    Antworten: 1
    Letzter Beitrag: 02.05.2006, 07:30
  5. pps öffnen?
    Von push-up im Forum Plauderecke
    Antworten: 8
    Letzter Beitrag: 07.09.2004, 09:58

Besucher haben diese Seite mit folgenden Suchbegriffen gefunden:

evb LineInputString

skype dateien lesen

lineinputstring vbs

file1.open eVB 3.0

evb datei

evb for pocket pc

embedded vb textdatei lesen

fsmodeinput

evb öffnen

schreiben öffnen

daten für evb

my documents öffnen

ist evb in windows mobile 6.5 enthalten

evb windows

code datei senden evb

windows mobile evb code

Stichworte