Avatar billede leasing Nybegynder
24. april 2002 - 08:46 Der er 1 kommentar og
1 løsning

Gemme og hente fil

Hej Eksperter

Jeg er færdig med min JukeBox, men vil nu lige lave en sidste funktion som at gemme og hente en playlist.

Når man vælger musik, så kommer melodiens filnavn i List1 og melodiens sti i List2. Jeg kan sagtens gemme playlisten - List1 kommer først hvorefter List2 står nedenunder og sådan forsætter den med at gemme i filen. Et eks. på filen i notepad:
Peter Frödin - Vent på mig
C:\musik\Peter Frödin\
Madonna - Deeper and deeper
C:\musik\Madonna\
osv osv

Der hvor jeg har problemer er når jeg så skal hente musikken igen. Den skulle gerne hente 1. linie til List1, 2. linie til List2, 3. linie til List1, 4. linie til List2 osv osv.

Er der nogen der har den gyldne kode til at hente musikken ind i List1 og List2.
Avatar billede code_master Nybegynder
24. april 2002 - 09:52 #1
Playlisten:
Peter Frödin - Vent på mig|C:musikPeter Frödin
Madonna - Deeper and deeper|C:musikMadonna


Koden til at læse en playlist:

Private Sub Command1_click()
Dim strArray
Dim strText
 
  Open "c:\playlisten.txt" For Input As #1
    Do Until EOF(1)
      Input #1, strText
      strArray = Split(strText, "|")
      List1.AddItem strArray(1) // Navnet på sangen
      List2.AddItem strArray(2) // Stedet hvor filen ligger
Loop
  Close #1
End Sub
Avatar billede leasing Nybegynder
24. april 2002 - 10:09 #2
Det ser helt godt ud...
Det prøver jeg lige når jeg kommer hjem.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB

Capgemini Danmark A/S

AI/Data Engineer

Capgemini Danmark A/S

Microsoft AI Solution Architect

Riskpoint A/S (Riskpoint Solutions Limited)

Senior Developer