Hallo liebe Community,
Ich sitze an einem kleinen Problem. Ich möchte eine txt. Datei in AutoCAD mit VBA auslesen und verarbeiten. Dazu soll im ersten Schritt die Datei geöffnet werden und anschließend untersucht werden wie viele verschiedene Profile gemessen wurden. Wie viele Messungen bei jedem Profil durchgeführt wurden ist erstmal nicht so wichtig.
Was VBA nun übernehmen soll ist das öffnen der Datei, untersuchen der Profilnummer gucken ob diese unique ist und wenn ja in das Array schreiben, sodass ich für nachfolgende Auswertungen über einen Counter oder Ähnliches alle Werte des Arrays nutzen kann.
Dim Profiles() As Variant
'erstellt Array für Profilnummern
Open Kali For Input As #100 'öffnet Textdatei zum einlesen
While Not EOF(100)
Input #100, Nr, MessNr, ProfilNr, Ytief, Ztief, h, T, v
If Not Profiles.Exists(ProfilNr) Then 'Kontrolle ob Profilnr
Profiles.Add ProfilNr 'vorhanden sonst hinzufügen
End If
Wend 'Ziel: alle unique Profilnr.
Close #100
Leider kommt als Fehler bei mir momentan "ungültiger Bezeichner" bei dem Profiles in der If Not Schleife. Aber irgendwie komme ich nicht dahinter warum. Vielleicht bin auch einfach schon blind weil ich so lange vor VBA gesessen habe die letzten Tage. Wäre super nett wenn mir jemand helfen könnte, bin noch im Anfangsstadium der VBA Nutzung.
Mit freundlichen Grüßen
Zaron
|