Blaster2k Skrevet 17. september 2004 Rapporter Del Skrevet 17. september 2004 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 Siter Lenke til kommentar
Jonas Skrevet 17. september 2004 Rapporter Del Skrevet 17. september 2004 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 Siter Lenke til kommentar
Blaster2k Skrevet 17. september 2004 Forfatter Rapporter Del Skrevet 17. september 2004 høhø, okei. Takker og bukker =) Siter Lenke til kommentar
Anbefalte innlegg
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.