ComboBox og textbox

Private Sub Combo1_Click()
Dim Data As Variant, Str As String
Data = ""
Open "c:\" & Combo1.Text & ".txt" For Input As #1
Do Until EOF(1)
Line Input #1, Str
Data = Data & Str
Loop
Close #1
Text1.Text = Data
End Sub

kan ikke lige umiddelbart få det til at virke. Går ud fra den leder efter txt filen fra enten c:\ eller den mappe projektet er gemt i?  (får ihvertfald "file not found" som fejl...)

virker fint her i VB6

Har du rettet navnet Combo1 til navnet på din Combo

Hej.

Som kabbak skriver søges tekstfilen i roden af C.  Det er jo bare et eksempel, du skal selvfølgelig angive den sti, hvor dine tekstfiler ligger.
Vælger du at tekstfilerne (alle altså) skal ligge hvor programmet er, skal du skrive App.Path & "\"  Men det virker kun når du eksekverer den kompilerede exe-fil, ikke nødvendigvis når du kører programmet fra VB-udviklingsmiljø'et.  App.Path er jo en relativ sti, i udviklings-miljø'et kræves en absolut sti.

Men der er en svaghed i kabbaks forslag.  Der indlæses kun en linie i comboboksen.

Men der er også meget bedre at bruge file FileListBox, den viser jo netop alle filer i en mappe.  Evt. med udvælgelse at kun .txt-filer.  Hvorledes du så angiver mappen afhænger af dit projekt.  Skal brugeren kunne skifte mellem mapper, må du også have en DirListBox. 

M.v.h.  Jørn

kabbak: jeg har ændret combo1 til hvad den hedder i mit program

joern: jeg prøvede at flytte min txt fil til c:\ , men det gav samme resultat da jeg testede programmet. App.path har jeg ikke prøvet endnu, det er fint nok at den bare henter fra C:\

...men da det er indholdet af txt filerne jeg vil have vist (gerne flere linier), skal der vel også ændres lidt på koden?

Prøv at se på koden - den læser ALLE linier fra filen ind i variablen Data, og skriver variablen til textboxen

Kør koden, og se om det ikke virker som det skal. Hvis ikke, så kom med evt. fejlmeddelse eller andre ønsker :o)

PS: Du kan teste hvilken fil du forsøger at åbne ved at skrive

Data = ""
Msgbox "c:\" & Combo1.Text & ".txt"    '<-------- NY LINIE
Open "c:\" & Combo1.Text & ".txt" For Input As #1

problemet er jo at jeg slet ikke kan komme til at læse fra tekst filen, da VB siger "file not found"  (ligemeget hvor jeg ligger min txt fil :P)

det er den rigtige fil der kommer frem i msgboxen (C:\data1.txt), det er også der jeg har lagt txt filen, men den åbnes ikke...

kabbaks kode virker fint...fandt ud af hvad problemet var  (havde selvfølgelig ikke slået "hide known file extentions" fra da jeg lavede txt filen, så den hed data1.txt.txt :)

nu skulle det virke fint, men hvis jeg vil have samme tekst struktur som i tekst filen (med linie skift osv.) hvordan gøres dette så?

Læs linie for linie, og smid et VbLf ind i mellem hver linie. Sæt textboxen til at have multiline (eller hvad det nu hedder)

Sorry - retter lige mig selv: & vbCrLf &

Altså

Data = Data & vbCrLf & Str

lækkert, takker :)

(ser ikke ud til at "& vbCrLf &" er nødvendigt dog :)

ok godt i fandt ud af det. ;-))