vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: m3u Datei ändern 
Autor: effeff
Datum: 01.08.20 20:08

Ich habe das Beispiel erweitert; Beachte bitte das Importieren von RegularExpressions!

Imports System.Text.RegularExpressions
 
Public Class Form1
 
    Dim sDatei As String = Nothing
 
    Private Sub btnDateiLesen_Click(sender As Object, e As EventArgs) Handles _
      btnDateiLesen.Click
 
        sDatei = ""
 
        Dim ofd As New OpenFileDialog
        With ofd
            .InitialDirectory = "d:\"
            .Filter = "m3u files (*.m3u|*.m3u"
            .Multiselect = False
        End With
 
        Dim dres As DialogResult = ofd.ShowDialog
 
        If dres <> DialogResult.OK Or ofd.FileName = "" Then
            Exit Sub
        End If
 
        sDatei = ofd.FileName
 
        RichTextBox1.Text = System.IO.File.ReadAllText(sDatei)
 
        TextEinfaerben()
 
    End Sub
 
    Private Sub btnDateiSchreiben_Click(sender As Object, e As EventArgs) _
      Handles btnDateiSchreiben.Click
 
        System.IO.File.WriteAllText(sDatei, RichTextBox1.Text)
 
    End Sub
 
    Private Sub TextEinfaerben()
 
        Dim Textinhalt As String = RichTextBox1.Text
        Dim pattern As String = "^(?:(" & _
          "?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(" & _
          "?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)$"
        Dim Treffer As Boolean
        Dim Textbeginn As Integer = 0
        Dim Textposition As Integer = 0
        Dim Textlaenge As Integer = 0
 
        Dim arr() As String = Textinhalt.Split("/")
 
        For i As Integer = 0 To arr.Length - 1
 
            Treffer = Regex.IsMatch(arr(i), pattern, RegexOptions.IgnoreCase)
 
            If Treffer Then
                Textlaenge = arr(i).Length
                Textposition = Textinhalt.Substring(Textbeginn, _
                  Textinhalt.Length - Textbeginn).IndexOf(arr(i)) + Textbeginn
                With RichTextBox1
                    .SelectionStart = Textposition
                    .SelectionLength = Textlaenge
                    .SelectionColor = Color.Red
                End With
                Textbeginn = Textposition + Textlaenge
            End If
 
        Next
 
    End Sub
 
End Class

EALA FREYA FRESENA

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
m3u Datei ändern594Wicky0031.07.20 10:47
Re: m3u Datei ändern335effeff31.07.20 13:36
Re: m3u Datei ändern321Wicky0031.07.20 17:26
Re: m3u Datei ändern322effeff01.08.20 16:38
Re: m3u Datei ändern329Wicky0001.08.20 18:58
Re: m3u Datei ändern307effeff01.08.20 20:08

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel