Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Teilstring aus Dateinamen auslesen?

Mitglied: dodyou

dodyou (Level 1) - Jetzt verbinden

28.11.2013 um 21:53 Uhr, 4146 Aufrufe, 3 Kommentare, 2 Danke

Hallo beisammen,
ich versuche zwei Makros zu programmieren, die folgende Informationen aus dem jeweils aktuellen Dateinamen herauslesen und in ein Word-Dokument einfügen:

nämlich „Aktenzeichen“ und „Dokumentennummer“.

Die Dateinamen sind dabei wie folgt aufgebaut:
10-24743-06_XYZMuc_58495.DOCX
Die Dokumentennummer ist: 58495
Das Aktenzeichen ist: 24743

Alternativ könnte es auch so sein:
Der Dateinamen ist wie folgt aufgebaut:
10-A III 24743-06_XYZMuc_58495.DOCX
Die Dokumentennummer ist: 58495
Das Aktenzeichen ist: A III 24743

In beiden Fällen steht die Dokumentennummer immer hinter dem zweiten Unterstrich und vor dem Punkt (wenn die Dateiendung überhaupt "vorhanden" ist)
In beiden Fällen steht also steht das Aktenzeichen immer zwischen den zwei Bindestrichen.

Folgenden Eigenheiten sind zu beachten:
in Abhängigkeit davon, welche Einstellungen der jeweilige Benutzer vorgenommen hat (bekannte Dateiendungen anzeigen. j/n) wird das DCOX als Dateiendung in der Variable Dateiname (Schnellbausteine – Feld) mit übergeben oder auch nicht. Es gibt auch einzelne Dokumente, die noch im Doc-Format vorliegen.

Die Länge (Anzahl der Zeichen) von Aktenzeichen und Dokumentennummer sind von Dokument zu Dokument unterschiedlich, wird aber mindestens 5 Zeichen umfassen, mit zunehmender Tendenz. Die mit einem „–“ von dem Aktenzeichen getrennten Ziffern (hier: 10 und 06) werden wohl zweistellig bleiben (könnten höchstens dreistellig werden; wenn das zu höherer Komplexität führen würde, können wir das auch so festlegen, dass die immer zweistellig bleiben) , wie auch die Bindestriche vor und dahinter wie auch das „_XYZMuc_“ sind irrelevant.

Im Alternativfall könnten anstelle von „A III“ auch stehen: A I, A II, A IV, A V oder WZ. Es ist aber sicher, dass das Aktenzeichen von zwei „–“ „umrahmt“ ist.

Ich denke an folgende Lösung, jedoch fehlen mir als VBA-Laie die richtigen Befehle/Operatoren

dateiname = Dateiname
gesamtlaenge = Laenge(dateiname)
For x = 1 to gesamtlaenge
buchstabe = instr(dateiname, x, 1)
if buchstabe = "-"
if ersterBindestrich = 0
ersterBindestrich = x
else zweiterBindstrich = x
endif
endif
if buchstabe = "_"
if ersterUnterstrich = 0
ersterUnterstrich = x
else zweiterUnterstrich = x
endif
endif
next x
endfor
aktenzeichen = instr(dateiname, ersterBindestrich, zweiterBindestrich)
dokumentenummer = instr(dateiname, ersterUnterstrich, zweiterUnterstrich)

Nun meine ich schon zu wissen, das anstelle von instr zu verwenden ist:

Selection.TypeText (Mid(ActiveDocument.Name, ersterBindestrich, zweiterBindestrich))

Wie aber "gewinne" und belege ich die Variablen ersterBindestrich, zweiterBindestrich?
Für Hilfe jeder Art wäre ich sehr dankbar!
Mitglied: colinardo
28.11.2013, aktualisiert um 22:52 Uhr
Hallo dodyou,
mach das ganze am besten mit Regular Expressions das ist zuverlässiger
01.
Set regex = CreateObject("vbscript.regexp") 
02.
regex.IgnoreCase = True 
03.
regex.Pattern = "-([^\-]+)-.*_(\d{5,})" 
04.
Set matches = regex.Execute(dateiname) 
05.
if matches.count > 0 then 
06.
    aktenzeichen = matches(0).Submatches(0) 
07.
    dokumentennummer = matches(0).Submatches(1) 
08.
End if
Grüße Uwe
Bitte warten ..
Mitglied: bastla
28.11.2013 um 22:44 Uhr
Hallo dodyou!

Ich würde das mit "Split()" versuchen - etwa:
Aktenzeichen = Split(Dateiname, "-")(1) 
Dokumentennummer = Split(Split(Dateiname, "_")(2), ".")(0)
Um den Dateinamen ohne Typ zu erhalten (dann würde
Dokumentennummer = Split(DateinameOhneTyp, "_")(2)
genügen) könntest Du
DateinameOhneTyp = CreateObject("Scripting.FileSystemObject").GetBaseName(Dateiname)
verwenden.

Grüße
bastla
Bitte warten ..
Mitglied: dodyou
29.11.2013 um 16:51 Uhr
Herzlichen Dank für die wirklich schnellen und hilfreichen Reaktionen. Ich habe mich für die (für mich halbwegs verständliche und damit) einfachere Split-Lösung entschieden.
Für Nachahmer die Lösung hier

Sub Aktenzeichen()
Selection.TypeText (Split(ActiveDocument.Name, "-")(1))
End Sub

und

Sub Doknummer()
Selection.TypeText (Split(Split(ActiveDocument.Name, "_")(2), ".")(0))
End Sub

Besten Dank noch einmal, dieses Forum und seine die Poster hier sind wirklich Spitze!
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Dateinamen auslesen und in einer Schleife benutzen

gelöst Frage von TeholBeddictBatch & Shell12 Kommentare

Hallo Experten, ich kämpfe derzeit mit folgender Aufgabenstellung, welche ich per Batchskript lösen möchte: In einem Ordner sind 1 ...

Batch & Shell

Dateinamen auslesen und in Code einbauen

gelöst Frage von markueBatch & Shell10 Kommentare

Hallo an alle, ich bin neu hier und habe eine für mich knifflige Sache. Ich möchte per .cmd Datei ...

Batch & Shell

Batch: Dateiname abhängig vom Änderungsdatum auslesen

gelöst Frage von freaktastischBatch & Shell6 Kommentare

Servus zusammen, hab folgende Situation Oberordner: beinhaltet test.bat, Ordner1 und Ordner2 Ordner1, sowie Ordner2 beinhalten .docx Dateien. Mein Anliegen ...

Batch & Shell

Dateinamen aus Verzeichnis Auslesen und Stringzerlegung zur Datumsanalyse

gelöst Frage von caspi-pirnaBatch & Shell3 Kommentare

Guten Morgen. Ich habe ein Problem mit einer Batch- Aufgabe. Es soll der Inhalt eines Verzeichnisses überprüft werden. In ...

Neue Wissensbeiträge
Humor (lol)
IoT-Gefahr: Smartes Aquarium leckt!
Information von Lochkartenstanzer vor 1 TagHumor (lol)3 Kommentare

Moin, Die IoT-Manie hat weitere Opfer gefunden. Ein Casino-Leck durch ein smartes Aquarium: Allerdings haben sie kein Wasser, sondern ...

Router & Routing

Alte Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 1 TagRouter & Routing3 Kommentare

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 2 TagenSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 2 TagenWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Heiß diskutierte Inhalte
Router & Routing
Mikrotik: Routing zwischen Interfaces mit Geräten ohne Gateway
Frage von TonLichtVideoRouter & Routing18 Kommentare

Hallo zusammen, ich komme aus dem Veranstaltungstechnik Bereich und habe zwei Netze um verschiedene Hardware zu Remoten. CONTROL1 192.168.1.0/24 ...

Linux Netzwerk
Raspberry Pi 3: WLAN Power save deaktivieren
Frage von nordie92Linux Netzwerk14 Kommentare

Moin moin, mein Raspberry Pi 3 Model B benötigt eine dauerhaft aktive WLAN-Verbindung. Leider bricht die WLAN-Verbindung nach einigen ...

SAN, NAS, DAS
Entscheidung SAN Dell oder HP
Frage von VincorSAN, NAS, DAS13 Kommentare

Hallo, wir wollen uns für unsere Hyper V Umgebung eine neue SAN Anschaffen. Es laufen 30 VM's darunter, DC; ...

Vmware
Server 2008 r2 vmware terminalserver
Frage von MasterCVmware10 Kommentare

Guten Abend zusammen, ich hoffe , dass einer von euch mir weiterhelfen kann ,bei meinem kack Problem ! Ist ...