Hallo,
welchen Inhalt hat die Variable xText
Code:
Do While Not EOF(1)
Line Input #xFn, xText
MsgBox xText
ListBox3.AddItem xText
Loop
Hallo Steffl,
Code:
Private Sub CommandButton1_Click()
Dim xFn As Long
Dim strDatei As String
Dim xText As String
Dim strPath As String
ListBox3.Clear
xFn = FreeFile
strDatei = TextBox20.Text
strPath = "D:\FilmCovers" 'Pfad anpassen
Open strPath & strDatei & ".txt" For Input As xFn
Do While Not EOF(1)
Line Input #xFn, xText
ListBox3.AddItem xText
Loop
Close xFn
End Sub
dieses ist der komplette Code....was meinst du mit Inhalt?
Hallo,
mal ein sehr einfaches Beispiel
Code:
Sub prcMdeJong()
'Variablenzuweisung
Dim strText As String
'Befüllen einer Variable mit einem Text
strText = "Hallo Michael"
'jetzt will ich mit der MsgBox den Variableninhalt sehen
MsgBox strText
End Sub
Du hast schon gesehen, dass ich in meinen letzten Beitrag im gekürzten Code eine Codezeile eingefügt habe?
Ok.....die meinst diese Stelle:
Code:
Private Sub CommandButton1_Click()
Dim xFn As Long
Dim strDatei As String
Dim xText As String
Dim strPath As String
ListBox3.Clear
xFn = FreeFile
strDatei = TextBox20.Text
strPath = "D:\FilmCovers" 'Pfad anpassen
Open strPath & strDatei & ".txt" For Input As xFn
Do While Not EOF(1)
Line Input #xFn, xText
MsgBox xText ........diese
ListBox3.AddItem xText
Loop
Close xFn
End Sub
MsgBox xText ........diese
das befüllen der Variablen wird doch hier mit Pfadangabe angegeben?
Code:
strDatei = TextBox20.Text
strPath = "D:\FilmCovers" 'Pfad anpassen
Open strPath & strDatei & ".txt" For Input As xFn
und trotzdem bekomme ich eine Fehlermeldung bei dieser Zeile:
Open strPath & strDatei & ".txt" For Input As xFn
moin
da ich schon wach war und noch Zeit hatte....
im Pfad zum Ordner fehlte am Ende ein Backslash
ich hatte noch eine ältere Version deiner Datei
dort habe ich meinen letzten Vorschlag eingebaut
ich hoffe du kommst damit zurecht
MfG Tom
Hallo Crazy Tom,
vielen, vielen Dank.
manchmal ist es nur ein Punkt schon läuft die Sache nicht.....mir ist das wirklich nicht aufgefallen.
Aber jetzt geht es. :)
Danke das du doch noch mal nachgeschaut hast.
Gruß
Michael
Hallo Tom,
noch einmal vielen Dank für den letzten Hinweis......Backslash
Gestern war ich verzweifelt, dachte das mir hier keiner mehr helfen möchte, so habe ich meine Frage in einem anderen Forum gestellt.
Doch du hast dich doch dazu heute Morgen gemeldet und es hat geholfen.
Du bist auch hier der einzige gewesen, dir mir es bis jetzt am besten erklären konnte, sodass ich ab und zu mal drauf kam, wie ich es umsetzen soll.
Man kann halt nicht mit einem Vulkanier auf Deutsch reden, wenn er die Sprache nicht spricht und versteht! ;)
Dann ist nun dieses Thema Listbox abgeschlossen.
Mal schauen ob ich mit meinem noch Thema "Videos in Userform abspielen", hier weiter komme?
Ich setze natürlich dafür deine von heut Morgen rein.
Nochmals vielen Dank für deine Geduld.
Gruß
Michael
Hallo Tom,
meine Videothek läuft ja jetzt prima, dank deiner Hilfe.
mein Filminhalt wird in der Userform in er Multipage angezeigt.
Der Text in der Listbox wird als 1 Zeile angezeigt, so kann ich nicht alles sehen.
Jetzt habe ich mal gegoogelt um herauszufinden, ob es ne Möglichkeit gibt, einen Zeilenumbruch wie bei der TextBox zu machen.
ich weiß, das soll bei einer Listbox nicht gehen.
Was ich bisher gefunden habe sind Infos, das man in den Eigenschaften der Listbox Horizontal Scrollbar machen soll. ( auf True setzen)
Diese Einstellung ist aber nicht bei mir in den Eigenschaften vorhanden?
Muss man diese Eigenschaft in Excel erst noch hinzufügen?
Oder gibt es einer andere Lösung, da och in der Listbox entweder den Zeilenumbruch habe oder den ganzen Text sehen kann?
Gruß
Michael
Hallo
muss denn der Text in der Textdatei in einer Zeile stehen?
wie kommt denn der Text in die Textdatei?
MfG Tom