Zitat von
XenoN
ja das sind knapp 80 gb... du hast es aber so aufgeschrieben das es 80 terrabyte sind
deswegen hatte er nachgefragt
mfg
ups sry editiert
jop nur das kommt ja nachher noch obendrauf :o
also hier mal n paar sachen die ich grad am testen bin
Code:
Private Function ReadLineFromFile(ByVal Filename As String, ByVal Line As Integer) As String
'dieses kleine liest eine definierte zeile aus einer datei ein und gibt sie an die funktion zurück
Try
Dim Textfile As TextReader = New StreamReader(Filename)
Dim cnt As Integer = 0
Do Until cnt = Line
Textfile.ReadLine()
cnt += 1
Loop
ReadLineFromFile = Textfile.ReadLine()
Textfile.Close()
Catch ex As Exception
ende = True
End Try
End Function
Code:
Function zeilenzahl(ByVal pfad As String) As String
'Hinweis: Zaehlung beginnt bei 0. Erste Zeile = 0, zweite Zeile = 1 usw.
Dim Path As String = pfad
' String Varianle für die spätere aufnahme deiner Zeile
Dim MeineZeile As String = Nothing
' Zufallsgenerator
Dim Zufall As New Random
' Deine TextDatei in ein Arry einlesen
Dim lines() As String = IO.File.ReadAllLines(Path)
' Die Menge der Zeilen aus der TextDatei ermitteln
Dim Menge As Integer = lines.Count
'MsgBox(Menge)
End Function
Code:
Function stringvergleich(ByVal string1 As String, ByVal string2 As String) As Boolean
Dim vergleich As String = ""
'Die Strings sind gleich (Rückgabewert: 0)
'(false = groß/klein sind unterschiedlich )
'(true = groß/klein sind egal )
vergleich = String.Compare(string1, string2, False)
If vergleich = 0 Then
Return True
Else
Return False
End If
End Function
also isses am besten datei 1 mit allen vergleichen dann datei 2 mit allen außer 1&2