split file name

[siipo]

Hallo,

ich habe einen Filenamen, der folgendermassen aufgebaut ist: aaaaaa__bbbbbb_d__cc_ddd__ee_ff_gg_hh__iii......... Der Name soll nun jeweils bei doppelter Underline getrennt werden und die Werte jeweils in eine Variable geschrieben werden. Dies sieht dann wie folgt aus:
Textvariable 1:   aaaaaa
Textvariable 2:   bbbbbb_d
Textvariable 3:   cc_ddd
Textvariable 4:   ee_ff_gg_hh
           :                     :

Die Länge des Namens sowie die Anzahl doppelter Underline variiert.

Kann mir jemand weiterhelfen, wie ich das in Diadem Script am einfachsten hinkriege?

Vielen Dank

[Twigeater]

Hallo siipo!

am einfachsten ist die Verwendung des VBS Befehls Split der sein Ergebnis in ein Array speichert. Das Beispiel gibt das Ergebnis aus:

Option Explicit
 
Dim sgName
Dim asgNames
 
asgNames = Split( "aaaaaa__bbbbbb_d__cc_ddd__ee_ff_gg_hh__iii","__")
 
MsgBox UBound(asgNames)+1 & " Teile gefunden"
 
For Each sgName In asgNames
  MsgBox sgName
Next

Matthias

[siipo]

merci für die rasche Hilfe, konnte mein Problem damit lösen.