Læs/Skriv data til text fil

Kode 

Public File As String
Public Title As String

Kode 

Option Explicit
Dim Col As New Collection

Private Function LoadPlaylist(ByVal FileName As String) As String
Dim FObj As New Scripting.FileSystemObject
Dim TS As TextStream
Dim Tmp As Variant
Dim Playlist As cPlaylist

Set TS = FObj.OpenTextFile(FileName, ForReading)
While TS.AtEndOfStream = False
    Tmp = Split(TS.ReadLine, "=")
    If InStr(1, Tmp(0), "file", vbTextCompare) = 1 Then
        Set Playlist = New cPlaylist
        Playlist.File = Tmp(1)
        Tmp = Split(TS.ReadLine, "=")
        Playlist.Title = Tmp(1)
        Col.Add Playlist
    End If
Wend

TS.Close
Set FObj = Nothing

End Function

Private Sub SavePlaylist(ByVal FileName As String)
Dim FObj As New Scripting.FileSystemObject
Dim TS As TextStream
Dim Playlist As New cPlaylist
Dim X1 As Integer

Set TS = FObj.OpenTextFile(FileName, ForWriting, True)
TS.WriteLine "[playlist]"
For X1 = 1 To Col.Count
    Set Playlist = Col.Item(X1)
    TS.WriteLine "file" & X1 & "=" & Playlist.File
    TS.WriteLine "title" & X1 & "=" & Playlist.Title
    TS.WriteLine "Length=-1"
Next X1
TS.WriteLine "NumberOfEntries = " & Col.Count
TS.WriteLine "Version = 2"
  
TS.Close
Set FObj = Nothing

End Sub

Sub Delete(Index As Variant)
Dim Playlist As New cPlaylist
Dim X1 As Integer

If IsNumeric(Index) Then
    Col.Remove (Index)
Else
    For X1 = 1 To Col.Count
        Set Playlist = Col.Item(X1)
        If Playlist.File = Index Then
            Col.Remove (X1)
            Exit For
        End If
    Next X1
End If

End Sub

Sub Add(File As String, Title As String)
Dim Playlist As New cPlaylist

Playlist.File = File
Playlist.Title = Title
Col.Add Playlist

End Sub

Sub InitChannelSelector()
Dim X1 As Integer

Combo1.Clear
For X1 = 1 To Col.Count
    Combo1.AddItem "Channel " & X1
Next X1
Combo1.ListIndex = 0

End Sub

Private Sub cmdAdd_Click()
Add Text2.Text, Text1.Text
InitChannelSelector

End Sub

Private Sub cmdDel_Click()
Delete Combo1.ListIndex + 1
InitChannelSelector

End Sub

Private Sub cmdSave_Click()
SavePlaylist "C:\\Temp\\Playlist.txt"

End Sub

Private Sub Combo1_Click()
Dim Playlist As New cPlaylist

Set Playlist = Col.Item(Combo1.ListIndex + 1)
Text1.Text = Playlist.Title
Text2.Text = Playlist.File

End Sub

Private Sub Form_Load()
LoadPlaylist "C:\\Temp\\Playlist.txt"
InitChannelSelector

End Sub

Kode 

<?xml version="1.0" encoding="ISO-8859-1"?>
<playlist>
   <song>
      <file>mms://radioitalia.wm.p1.str3.com/vditalia</file>
      <title>[Italia][Italian]Solo Musica Italiana</title>
      <lenght>-1</length>
   </song>
   <song>
      <file>http://www.rtl.it/mediaplayer/rtlTV.asx</file>
      <title>[Italia][Italian]Italy Music</title>
      <lenght>-1</length>
   </song>
</playlist>

Kode 

file1 = mid(strTextFil, instr(1, strTextFil, "file1="), intstr(instr(1, strTextFil, "file1="), strTextFil, vbCrlf))

Kode 

'Funktion til at finde værdien

function FileValue(ByVal findString as string, ByVal fileName as string) as string

  Dim oRead as System.IO.StreamReader
  Dim LineIn as String
  Dim tempValue as String
TempValue = "not found"

  oRead = IO.File.OpenText(fileName)

  While oRead.Peek <> -1
    LineIn = oRead.ReadLine()
    if Microsoft.VisualBasic.left(LineIn, len(findString) + 1) = findString & "=" then
      tempValue = mid(LineIn, len(findString)+2)
      exit While
    end if
  End While

  oRead.Close()
end function


'Brug af funktionen... vil i dit tilfælde retunerer mms://radioitalia.wm.p1.str3.com/vditalia
file1 = FileValue("file1", "c:\\playlist.txt")

Kode 

sub SetValue(ByVal findString as string, ByVal fileName as string, ByVal value as string)

  Dim oRead as System.IO.StreamReader
  Dim oWrite as System.IO.StreamWriter
  Dim FileArray() as string
  Dim TempLine as string
  Dim i as integer 
  Dim t as integer

  i = 0

  oRead = IO.File.OpenText(fileName)

  While oRead.Peel <> -1
    FileArray(i) = oRead.ReadLine()
    if Microsoft.VisualBasic.left(LineIn, len(findString) + 1) = findString & "=" then
      tempLine = findString & "=" & value
    else
      tempLine = oRead.ReadLine()
    end if
    FileArray(i) = tempLine
    i = i + 1
  End While

  oRead.Close()

  oWrite = IO.File.CreateText(fileName)

  for t = 0 to UBound(FileArray)
    oWrite.WriteLine(FileArray(i))
  next

  oWrite.Close()
end sub