Indlæs, dekrypter, vis i listbox

Jeg er ikke helt med på hvad du mener. Hvad skal programmet bruges til?

Du kunne jo gøre sådan..


Private Sub Form_Load()
Dim i As Long
Dim strText As String
Dim arrLine() As String
Dim arrSplit() As String

  strText = "Hej.lir.dk | hej | pass (krypteret) | .lir.dk" & vbCrLf & _
            "sjh.lir.dk | sjh | pass (krypteret) | .lir.dk"

  arrLine = Split(strText, vbCrLf)
  For i = 0 To UBound(arrLine)
  arrSplit = Split(arrLine(i), "|")

  'arrSplit(0) = Hej.lir.dk
  'arrSplit(1) = hej
  'arrSplit(2) = pass (krypteret)
  'arrSplit(3) = .lir.dk

  List1.AddItem arrSplit(0) & " " & _
                arrSplit(1) & " " & _
                dekryptere(arrSplit(2)) & " " & _
                arrSplit(3)
  Next
End Sub

'Din dekrypter funktion
Public Function dekryptere(strPass As String) As String
  dekryptere = strPass
End Function

Wannado:
Programmet skal bruges til en Auto-opdaterings funktion til DynDNS.dk... Så kan man selv tilføje de konti de vil have auto-opdateret... Det er primært lavet for at hvis man får skiftet ens IP adresse tit, så kan det hjælpe med at opdatere ens konti...

sjh:
strText ligger i en fil hvor der er et ukendt antal konti i.. Jeg tror det kan klares med en Loop som henter alle linierne og så der efter splitter dem alle op, og adder xx.lir.dk til listen...
Det ser ellers fornuftigt ud det du har lavet.. Jeg vil lige prøve at se om jeg kan bygge videre på det...

Dim Filnummer As Byte

Filnummer = FreeFile

Open "c:\test.txt" For Input As #Filnummer
      Do While Not EOF(Filnummer)
        ReDim Preserve Linje(x)
        Line Input #Filnummer, Linje(x)
        List1.AddItem Linje(x) & " | " & x
        x = x + 1
      Loop
      Close #Filnummer


Sådan får jeg loaded min tekstfil... Det er fra et andet spørgsmål jeg engang stillede...

Så skulle den være der..


Option Explicit

Private Sub Form_Load()
Dim intFree    As Integer
Dim strLine    As String
Dim arrSplit() As String

  intFree = FreeFile
  Open "c:\test.txt" For Input As #intFree
    Do While Not EOF(intFree)
        Line Input #intFree, strLine
        If InStr(1, strLine, "|") Then
          arrSplit = Split(strLine, "|")

          'arrSplit(0) = Hej.lir.dk
          'arrSplit(1) = hej
          'arrSplit(2) = pass (krypteret)
          'arrSplit(3) = .lir.dk

          If UBound(arrSplit) = 3 Then
            List1.AddItem arrSplit(0) & " " & _
                          arrSplit(1) & " " & _
                          dekryptere(Trim$(arrSplit(2))) & " " & _
                          arrSplit(3)
          End If

        End If
    Loop
  Close #intFree
End Sub

'Din dekrypter funktion
Public Function dekryptere(strPass As String) As String
  dekryptere = strPass
End Function

yes :D Der var den :D
tak for det!! Havde siddet og grublet over hvordan jeg skulle få det til :/ men kunne ikke få nogle af mine ting til.. De er skrottet nu ;)
Mange tak for hjælpen!!

<-*-*-*- SPØRGSMÅL LUKKET -*-*-*->

okææ tak for point :-)