German Dateiendung löschen

[MisterRieus]

Folgendes Problem:

Spinner7 wird wie folgt mit Inhalt gefüllt:
Dim List1 As List
List1 = File.ListFiles (File.DirRootExternal & "/simu/")
Spinner7.AddAll(List1)

Nun sind die Dateien in dem simu Ordner alles txt. Dateien.
Dadurch haben alle Items des Spinners die Endung .txt.

Nun möchte ich bevor der Spinner mit Inhalt gefüllt wird,
das vorher die Dateiendung gelöscht wird.

Habe jetzt schon eine ganze Weile rumprobiert und auch schon im Netz gesurft, aber leider nichts passendes gefunden.

Hoffe einer von euch kann mir helfen.

 

[muopc]

Nabend!

such mal nach Substring hier im forum. Du musst den Inhalt der Liste vor dem adden mittels der Substring Funktion kürzen.

Könnte so aussehen.

Dim tmp as string
For i = 0 to List1.Size -1
   tmp = List1.item(i)
   Spinner1.add(tmp.Substring2(0,tmp.indexof("."))
Next

Grüße

 

[MisterRieus]

Vielen Dank für deine Antwort.
Leider hat mich das nicht weitergebracht.
Habe mir dann Substring angeschaut, aber konnte leider nicht durch schlau werden. Trotzdem danke für deine Hilfe.

 

[klaus]

Was hat Dich nicht weiter gebracht und was hast Du nicht verstanden.
Der Code von muopc ist OK !
Der einzige Unterschied ist Du hast Spinner7 und muopcs hat Spinner1 im Code.

Beste Grüsse.

 

[MisterRieus]

Mit dem Code klappt es leider nicht.
Fehlermeldung:

Parsing code.                           Error
Error parsing program.
Error description: Invalid number of parentheses.
Occurred on line: 65
   Spinner7.add(tmp.Substring2(0,tmp.indexof("."))

 

[klaus]

Die letzte Klammer hatte Ich verpasst.
Die Zeile muss so aussehen:

Spinner7.add(tmp.Substring2(0,tmp.indexof(".")))

Warum hast Du das nicht gleich geschrieben dass Du eine Fehlermeldung bekommen hast ?
Wäre doch viel einfacher für die Helfer.

Beste Grüsse.

 

[MisterRieus]

Wäre wohl einfacher gewesen.
Dachte es wäre ein größeres Problem.

Nun kommt leider diese Fehlermeldung:

Parsing code.                           0.00
Compiling code.                         Error
Error compiling program.
Error description: Unknown member: item
Occurred on line: 64
   tmp = List1.item(i)
Word: item

Item gibt es auch nicht in der Auswahl wenn ich "List1." eingebe.

 

[klaus]

tmp = List1.Get(i)

Beste Grüsse.

 

[muopc]

Sorry, war ausm Kopf zusammengeschrieben. Ein bischen Try and Error gehört ja auch dazu :sign0013:

 

[MisterRieus]

Für aus dem Kopf war das doch schonmal sehr gut
Hab auch vieles probiert, aber natürlich nicht get lol

Mal wieder vielen Dank Klaus

Klappt wunderbar. Genau wie ich mir das vorgestellt hab.