Hilfe Code zu langsam

Hallo,
habe folgendes Problem mit unten stehenden Code, lese mit diesem Code aus ca. 2000 Textdateien
21 Zeilen aus, nun vorher waren diese Textdateien kürzer ca. 250 Zeilen und musste nur 4 Zeilen auslesen
dieser Vorgang dauerte ca. 1 Minute, jetzt sind diese Textdateien größer geworden und ich muss
21 Zeilen auslesen jetzt dauert dieser Vorgang über 4 Minuten.
Meine Frage ist nun, gibt es eine Möglichkeit, dass einlesen zu beschleunigen (anderer Code, oder Fehler in diesem Code) möcht auf irgendeine weise die Zeit auf ca. 2 Minuten bringen.
Wäre echt Toll wenn mir jemand Tipps geben könnte.
txtlines = 464
Open ReadFile For Input As #1
ReDim textArr(txtlines)
Input #1, _
textArr(1), textArr(2), textArr(464) '...Code gekürtz für Forum geht von 1 bis 464
tarValue = textArr(76)
tarValueDatum = textArr(2) & " " & textArr(3)
Bewertung = textArr(43)
cam1A = textArr(184) & "," & textArr(201) & "," & textArr(218) & "," & textArr(235)
cam2A = textArr(254) & "," & textArr(271) & "," & textArr(288)
cam3A = textArr(307) & "," & textArr(324) & "," & textArr(341)
cam4A = textArr(360) & "," & textArr(377) & "," & textArr(394) & "," & textArr(411)
cam5A = textArr(430) & "," & textArr(447) & "," & textArr(464)
Close #1
Gruss
Tino

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Tino,
mal ein Beispiel. Die Datensätze in der Datei haben eine maximale Länge von 32767 Byte (länger gehts sowieso nicht mehr). Das Beispiel ist aber nur dafür ausgelegt, mal einen einzelnen Datensatz zu schreiben oder zu lesen. Wenn ich es schneller brauche, dann übergeben ich an eine etwas andere Routine ein Array aus Zeilennummern und Datensätzen, bzw. hole über die Funktion ein Array. Die sehen dann ein bisschen anders aus. Das wird aber mit deinen Dateien nicht klappen.

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function Read_Line(lngLinenumber As Long) As String

    Dim intFilenumber As Integer
    Dim strText As String, strFile As String

    '//close all open textfiles
    Reset

    '//get free filenumber
    intFilenumber = FreeFile

    '//filename
    strFile = ThisWorkbook.Path & "Test.txt"

    '//open file
    Open strFile For Random Access Read Write As #intFilenumber Len = 32767

    '//read line
    Get #intFilenumber, lngLinenumber, strText

    '//clear line from Chr(0)
    Read_Line = Left$(strText, InStr(1, strText & Chr$(0), Chr$(0)) - 1)

    '//close file
    Close #intFilenumber

End Function

Public Sub Write_Line(lngLinenumber As Long, strText As String)

    Dim intFilenumber As Integer
    Dim strFile As String

    '//close all open textfiles
    Reset

    '//get free filenumber
    intFilenumber = FreeFile

    '//filename
    strFile = ThisWorkbook.Path & "Test.txt"

    '//open file
    Open strFile For Random Access Read Write As #intFilenumber Len = 32767

    '//write line
    Put #intFilenumber, lngLinenumber, strText & String$(32765 - Len(strText), Chr$(0))

    '//close file
    Close #intFilenumber

End Sub

Public Sub test()
    Call Write_Line(1, "Hallo Tino")
    MsgBox Read_Line(1)
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread