vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Dateisystem · Dateien lesen/schreiben   |   VB-Versionen: VB2010 - VB201510.01.21
Ermitteln des Feldtrennzeichens in einer Textdatei

Mit dem beigefügten Quellcode kann das Feldtrennzeichen einer beliebigen Textdatei ermittelt werden.

Autor:   Helmut KarnerBewertung:  Views:  424 
ohne HomepageSystem:  Vista, Win7, Win8, Win10kein Beispielprojekt 

Mit nachfolgendem Quellcode kann das Feldtrennzeichen einer beliebigen Textdatei ermittelt werden.

Function FindSeparator(Datei As String) As String
  Dim i, j As Integer  ' Zählvariablen
  Dim c As Integer    ' Enthält die Anzahl der Felder der ersten Zeile
  Dim s() As String = {vbTab, ";", ",", "#", "-", " "} ' Array mit Feldtrennzeichen, beliebig erweiterbar
 
  ' Trennzeichen einzeln durchgehen
  For j = 0 To UBound(s)  
    Using sr As New IO.StreamReader(Datei)
      ' Datei bei jedem Durchgang von vorne beginnen
      ' Erste Zeile lesen, splitten und Trennzeichenanzahl in c
      c = UBound(Split(sr.ReadLine, s(j)))  
      If c > 0 Then  ' Die nächsten 5 Zeilen prüfen
        For i = 1 To 5
          ' Wenn Trennzeichenanzahl nicht mit Trennzeichenanzahl der ersten 
          ' Zeile übereinstimmt, Schleife verlassen
          If c <> UBound(Split(sr.ReadLine, s(j))) Then Exit For
        Next 
        ' Wenn immer gleiche Feldanzahl, dann Trennzeichen zurückgeben
        ' (Schleife wurde nicht vorzeitig verlassen)
        If i = 6 Then Return s(j) 
      End If
    End Using
  Next
  Return Nothing  ' Trennzeichen nicht gefunden
End Function

Mit dem Aufruf

Dim Separator as String = FindSeparator(Dateiname incl. Pfad)

wird die Funktion aufgerufen.
Wenn kein Feldtrennzeichen ermittelt wurde, wird 'Nothing' zurückgegeben.



Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
 
Copyright ©2000-2021 vb@rchiv Dieter OtterAlle 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.