Re: Zeilen mit Kombinationen vergleichen ??? | |
 |
Autor: Manfred X |
Datum: 08.03.14 16:19 |
|
Hallo!
zu 1.)
Der Code ist nicht optimiert, z.B. kann der häufige Aufruf der
Konvertierung durch GetLine im Rahmen einer Vorverarbeitung der
geladenen Zeilen reduziert werden.
(Die 820 Zeilen in der Angelina.txt werden innerhalb von ca. 5 Sekunden
auf einem handelsüblichen PC verarbeitet.)
zu 2.)
Die 335790 paarweisen Vergleiche ergeben 5090 mal eine doppelt vorkommende
5er Folge. Die Zahl der unterscheidbaren Folgen (im Register) beträgt 1650,
davon sind 520 Folgen 2 oder 3 mal enthalten.
zu 3.)
Was genau Du Dir unter dem Aufbau einer HTML-Datei aus den
Daten vorstellst, kann ich nicht beurteilen.
Gewöhnlich verwendet man eine Datenbank, deren Inhalt über eine
Internet-Seite mit Login-Funktionalität abgefragt werden kann.
Du kannst die Datei aber auch z.B. in Word laden und als HTML
formatiert wieder speichern.
Ich habe die Routine "Text2HTML" aus dem VBArchiv-Tipp leicht
für Deine Zwecke angepaßt. Übergib als Parameter den Pfad zur
Output.txt und du erhälst im gleichen Ordner eine Output.txt.htm,
die einen einfachen HTML-Body zu den Daten hinzufügt.
Die Forensoftware kann eine Codezeile nicht verarbeiten:
Hinter TmpLine muß die geklammerte Zeichenfolge br eingefügt werden
(Zeilenumbruch).
Public Sub TextDatei2HTML(ByVal filename As String, _
Optional ByVal Titel As String)
Dim Text As String, sTmpLine As String
Dim F As Integer
Dim sHeader As String
Dim OutFileName As String
'Dateiinhalt lesen
F = FreeFile
Open filename For Input As #F
Do
Line Input #F, sTmpLine
Text = Text & sTmpLine & "/br/" & vbCrLf
Loop Until EOF(F)
Close #F
' HTML-Header
If Titel = "" Then Titel = "Text2HTML"
sHeader = "<HEAD><TITLE>" & Titel & "</TITLE></HEAD>"
OutFileName = filename & ".HTM"
' HTML-Datei speichern
F = FreeFile
Open OutFileName For Output As #F
Print #F, "<HTML>"
Print #F, sHeader
Print #F, "<BODY>"
Print #F, Text
Print #F, "</BODY>"
Print #F, "</HTML>"
Close #F
End Sub
Beitrag wurde zuletzt am 08.03.14 um 16:23:48 editiert. |
 |