Gå til innhold

Anbefalte innlegg

Hallo godtfolk!

 

Jeg har en listbox, som brukes til å vise en kolonne i en database (navn). Databasen inneholder også en annen kolonne som ikke vises i listboxen, denne inneholder enten en url eller en -.

 

1. Jeg vil at urlen som hører til det valgte navnet i databasen skal åpnes om jeg klikker på en commandbutton. Hvordan får man til no sånt?

 

2. jeg vil også ha en knapp som eksporterer databasen til en tekstfil på denne måten:

 

Navn1 ~ Url1

Navn2 ~ Url2

 

Er det håp?

 

3. Om jeg skal eksportere til html så trenger jeg også <p> foran og </p> etter. How?

 

 

Takker og bukker for all hjelp.

 

Mvh.

Blaster

Lenke til kommentar
Videoannonse
Annonse

Det med link på knapper er jeg sikker på at du fikser ;)

Option Explicit

Private Sub Form_Load()

Dim buff, buff2

Open App.Path & "\database.txt" For Input As #1
   Do Until EOF(1) ' EOF er TRUE når VB har nådd enden av fila
       Line Input #1, buff
       buff2 = Split(buff, " ~ ")
       
       list1.AddItem buff2(0)
       list2.AddItem buff2(1)
       
   Loop
Close #1

End Sub

Private Sub savefile()

Dim i, tekst As String

For i = 0 To list1.ListCount - 1
   
   If tekst = "" Then
       
       tekst = list1.List(i) & " ~ " & list2.List(i)
       
   Else
   
       tekst = tekst & vbNewLine & list1.List(i) & " ~ " & list2.List(i)
       
   End If
   
Next i

MsgBox tekst
       
End Sub

Private Sub makehtml()

Dim i, html As String

For i = 0 To list1.ListCount - 1
   
   If html = "" Then
       
       html = "<p>" & list1.List(i) & " ~ " & list2.List(i) & "</p"
       
   Else
   
       html = html & vbNewLine & "<p>" & list1.List(i) & " ~ " & list2.List(i) & "</p"
       
   End If
   
Next i

MsgBox html
       
End Sub

Lenke til kommentar

Bli med i samtalen

Du kan publisere innhold nå og registrere deg senere. Hvis du har en konto, logg inn nå for å poste med kontoen din.

Gjest
Skriv svar til emnet...

×   Du har limt inn tekst med formatering.   Lim inn uten formatering i stedet

  Du kan kun bruke opp til 75 smilefjes.

×   Lenken din har blitt bygget inn på siden automatisk.   Vis som en ordinær lenke i stedet

×   Tidligere tekst har blitt gjenopprettet.   Tøm tekstverktøy

×   Du kan ikke lime inn bilder direkte. Last opp eller legg inn bilder fra URL.

Laster...
  • Hvem er aktive   0 medlemmer

    • Ingen innloggede medlemmer aktive
×
×
  • Opprett ny...