Private Sub SplitFile()
 
   Dim lines As New List(Of String), line As String = ""
   Dim outpath As String = "C:\daten", outfile As String = ""  'Zielpfad 
 
   Using sr As New IO.StreamReader("C:\Daten\splitfile.txt") 'Datendatei
      While Not sr.EndOfStream
         line = sr.ReadLine
         lines.Add(line)
 
         If line.StartsWith("PG_Bezeichnung".ToUpper) Then
            Dim filename As String = _
               line.Substring(line.IndexOf("=") + 1) & ".txt"
            outfile = IO.Path.Combine(outpath, filename)
         End If
 
         If Not outfile = "" Then
            If line.StartsWith("[Hauptprogramm]".ToUpper) Then
               IO.File.WriteAllLines(outfile, lines)
               lines.Clear()
               outfile = ""
            End If
         End If
      End While
  End Using
 
  If Not lines.Count = 0 And Not outfile = "" Then
     IO.File.WriteAllLines(outfile, lines)
  End If
 
End Sub

Dim t, Datei, DateiNeu, Pfad, b, d
 
Datei = "original.txt" '<--- anpassen
Pfad = "d:\#1\"    '<--- dein Pfad "\" am Ende! 
b = False
b1 = True
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.OpenTextFile(Pfad & datei, 1)
 
Do Until File.AtEndOfStream
 
	t = File.ReadLine
	If Left(t, 15) = "[HAUPTPROGRAMM]" And b1 Then 
		b1 = False
		tmp = ""
	End If
 
	If Not b Then
		tmp = tmp & t & vbCrLf
		If Left(t, 14) = "PG_BEZEICHNUNG" Then
		d = Mid(t,InStrRev(t,"=")+1)
			b = True
			Set FileNeu = FSO.OpenTextFile(Pfad & d & ".txt", 2, True)
			fileneu.Write tmp
		End If	
	ElseIf Left(t, 15) = "[HAUPTPROGRAMM]" And b Then 
		b = False
		fileNeu.close
		tmp = ""
		tmp = tmp & t & vbcrlf
	Else
		fileneu.WriteLine t		
	End If
Loop
MsgBox "Fertig"
fileNeu.Close
file.close

filename = filename.Replace(".", "_")
filename = filename.Replace("/", "&")
filename = filename & ".txt"

Zitat:

Und gibt es eine Möglichkeit einen Punkt und einen Schrägstrich in einem Dateinamen zu verwenden ?

EALA FREYA FRESENA

...
Using sr As New IO.StreamReader("d:\#1\test.txt", System.Text.Encoding.Default) _
  'Datendatei
...
IO.File.WriteAllLines(outfile, lines, System.Text.Encoding.Default)
 
...
 
IO.File.WriteAllLines(outfile, lines, System.Text.Encoding.Default)

Public Class Form1
    Dim pfad
    Dim Lines As String
    Dim LineCount As Integer
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles _
      Button2.Click
        OpenFileDialog1.Filter = "txt Dateien (*.txt)| *.txt"
 
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = OpenFileDialog1.FileName
 
 
            pfad = System.IO.Path.GetDirectoryName(OpenFileDialog1.FileName) & _
              "\Ausgepackt\"
 
            If Not IO.Directory.Exists(pfad) Then
                IO.Directory.CreateDirectory(pfad)
                TextBox2.Text = pfad
            Else
                IO.Directory.CreateDirectory(pfad)
                TextBox2.Text = pfad
 
 
            End If
 
            Dim Lines As String() = My.Computer.FileSystem.ReadAllText( _
              TextBox1.Text, System.Text.Encoding.Default).Split(vbCr)
            Dim LineCount As Integer = Lines.Length
            Label3.Text = LineCount & "Zeilen"
        End If
 
    End Sub
 
    Private Sub SplitFile()
 
        Dim lines As New List(Of String), line As String = ""
        Dim outpath As String = pfad, outfile As String = ""  'Zielpfad 
 
        Using sr As New IO.StreamReader(OpenFileDialog1.FileName, _
          System.Text.Encoding.Default) 'Datendatei
            While Not sr.EndOfStream
                line = sr.ReadLine
                lines.Add(line)
 
                If line.StartsWith("PG_BEZEICHNUNG".ToUpper) Then
                    Dim filename As String = line.Substring(line.IndexOf("=") + _
                      1) '& ".txt"
                    filename = filename.Replace("..", " ")
                    filename = filename.Replace("/", "&")
                    filename = filename & ".txt"
                    outfile = IO.Path.Combine(outpath, filename)
                End If
 
                If Not outfile = "" Then
                    If line.StartsWith("[HAUPTPROGRAMM]".ToUpper) Then
                        IO.File.WriteAllLines(outfile, lines)
                        'lines.Clear()
                        outfile = ""
                    End If
                End If
            End While
        End Using
 
        If Not lines.Count = 0 And Not outfile = "" Then
            IO.File.WriteAllLines(outfile, lines, System.Text.Encoding.Default)
        End If
 
    End Sub
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        SplitFile()
    End Sub
 
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox1.SelectedIndex = 0
    End Sub
 
    Public Function FileLineCount(ByVal Filename As String) As Integer
        Dim Lines As Integer = 0
 
        Using oStream As New IO.FileStream(Filename, IO.FileMode.Open, _
          IO.FileAccess.Read)
            ' Blockgröße
            Dim BlockSize As Integer = 16384
 
            Dim Bytes(BlockSize) As Byte
            Dim ReadSize As Integer
            Dim StartIndex As Integer
 
            ' Datei blockweise auslesen, bis Dateiende erreicht
            Do
                ReadSize = oStream.Read(Bytes, 0, BlockSize)
 
                ' Anzahl Zeilenumbruchzeichen ermitteln
                StartIndex = -1
                Do
                    StartIndex = Array.IndexOf(Bytes, CByte(13), StartIndex + _
                      1, ReadSize - StartIndex)
                    If StartIndex >= 0 Then Lines += 1
                Loop Until StartIndex < 0
 
            Loop Until ReadSize = 0
            oStream.Close()
        End Using
 
        Return Lines
    End Function
 
 
End Class

         If Not outfile = "" Then
            If line.StartsWith("[Hauptprogramm]".ToUpper) Then
               lines.RemoveAt(lines.Count - 1)  'Zeile am Ende entfernen
               IO.File.WriteAllLines(outfile, lines)
               lines.Clear()
               lines.Add(line) 'Zeile an den Anfang der neuen Liste 
               outfile = ""
            End If
        End If

Public Function FileLineCount(ByVal Filename As String) As Integer
        Dim Lines As Integer = 0
 
        Using oStream As New IO.FileStream(Filename, IO.FileMode.Open, _
          IO.FileAccess.Read)
            ' Blockgröße
            Dim BlockSize As Integer = 16384
 
            Dim Bytes(BlockSize) As Byte
            Dim ReadSize As Integer
            Dim StartIndex As Integer
 
            ' Datei blockweise auslesen, bis Dateiende erreicht
            Do
                ReadSize = oStream.Read(Bytes, 0, BlockSize)
 
                ' Anzahl Zeilenumbruchzeichen ermitteln
                StartIndex = -1
                Do
                    StartIndex = Array.IndexOf(Bytes, CByte(13), StartIndex + _
                      1, ReadSize - StartIndex)
                    If StartIndex >= 0 Then Lines += 1
                Loop Until StartIndex < 0
 
            Loop Until ReadSize = 0
            oStream.Close()
        End Using
 
        Return Lines
    End Function

  'Eine Progressbar für Prozentzählung auf die Form setzen
  Dim probar As New ProgressBar With _
     {.Parent = Me, .Minimum = 1, .Maximum = 100}
 
 
  Private Sub SplitFile()
 
     Dim basefile As String = "C:\daten\split.txt" 'zu splittendes File
 
     Dim totallength As Long = New IO.FileInfo(basefile).Length 'Gesamtlänge
 
     Dim readlength As Long = 0
     Dim linecount As Long = 0, percent As Integer = 0
 
     Dim lines As New List(Of String), line As String = ""
     Dim outpath As String = "C:\daten", outfile As String = ""
 
     Using sr As New IO.StreamReader(basefile)
        While Not sr.EndOfStream
           line = sr.ReadLine
           lines.Add(line)
 
           readlength += line.Length + 2 'CRLF
           linecount += 1
           If linecount Mod 100 = 0 Then
              'Progressbar aktualisieren
              percent = CInt(readlength * 100 / totallength)
              probar.Value = percent
              probar.Refresh()
           End If
 
           If line.StartsWith("PG_Bezeichnung".ToUpper) Then
              Dim filename As String = _
                 line.Substring(line.IndexOf("=") + 1) & ".txt"
              outfile = IO.Path.Combine(outpath, filename)
           End If
 
           If Not outfile = "" Then
              If line.StartsWith("[Hauptprogramm]".ToUpper) Then
                 lines.RemoveAt(lines.Count - 1)
                 IO.File.WriteAllLines(outfile, lines)
                 lines.Clear()
                 lines.Add(line)
                 outfile = ""
              End If
           End If
        End While
     End Using
 
     If Not lines.Count = 0 And Not outfile = "" Then
        IO.File.WriteAllLines(outfile, lines)
     End If
  End Sub

Zitat:

Leider bin ich ein richtiger Anfänger, und weis teilweise nicht einmal wie ich mich richtig ausdrücken muss

Zitat:

Das Grundlagenbuch ich auch schon bestellt. Leider scheitert es noch der Umsetzung. leider ist aller Anfang schwer ....