Textdatei (xsd) durchsuchen
25.06.2019 17:04:11
ing.grohn
in letzter Zeit muss ich Textdateien nach bestimmten Kriterien durchsuchen.
Funktioniert! Aber: dauert ne halbe (gefühlt:ganze) Ewigkeit!
Hier der Code:
Function Gericht_suchen(GerichtsNr As String) As String
Dim strText As String
Dim strTextG As String
Dim Gericht As String
Dim Posi1 As Long
Dim Posi2 As Long
'anpassen
Open "E:\beA\xsd\xjustiz_Gericht_xsd.xsd" For Input As #1
Do While Not EOF(1)
Line Input #1, strText
strTextG = strTextG & strText
Loop
Close #1
MsgBox Len(strTextG)
strTextG = Umlaute(strTextG)
Posi1 = InStr(strTextG, GerichtsNr)
If Posi1 > 0 Then
Posi1 = InStr(Posi1, strTextG, "")
Posi2 = InStr(Posi1, strTextG, "")
Gericht = Mid(strTextG, Posi1 + 10, Posi2 - Posi1 - 10)
Gericht_suchen = Gericht
Else
Gericht_suchen = "Gericht " & GerichtNr & " nicht gefunden"
End If
strTextG = ""
End Function
'Aufruf
Sub testgericht()
MsgBox Gericht_suchen("P6122")
End Sub
das Problem liegt in der Zeit, die erforderlich ist, die Datei einzulesen.
Die Suche ist dann schnell erledigt.
Hat jemand ne Idee wie ich das Ganze beschleunigen kann (ich möchte die Datei eigentlich nicht in eine Exeltabelle einlesen (da gehts auch schnell)?
Datei Datei häng ich mal an:
https://www.herber.de/bbs/user/130576.zip
(bitte die .txt-Datei in xsd umbenennen oder Quellcode in .txt ändern,
Quelle:www.xjustiz.justiz.de/downloads/index.php#Versionen)
Für Eure Bemühungen bedanke ich mich!
Mit freundlichen Grüßen
Albrecht