---

Hallo Zusammen,

mit diesem Code kann ich einen Text bis auf nächstem . kürzen.
z.B.
lblFileNameBox.Text = "123456.dwg"
dann ist txtFilePath3 = 123456.
                        Dim LastExtPos As Short
                        txtFilePath3 = lblFileNameBox.Text
                        LastExtPos = InStrRev(txtFilePath3, ".", -1)
                        txtFilePath3 = VB.Left(txtFilePath3, LastExtPos)

Ich möchte gerne, dass er den Punkt bei 123456. nicht mitnimmt.
Was muß ich hier noch tun?

------------------
Schöne Grüße
Feyza : )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo : )

falls jemanden intressiert, habe ich es folgend gelöst:

  txtFilePath3 = txtFilePath3.Replace(".", "")

------------------
Schöne Grüße
Feyza : )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Feyza,
warum nicht einfacher?

Code:

---

if LastExtPos then txtFilePath3 = VB.Left(txtFilePath3, LastExtPos - 1)

---

Du solltest schon prüfen, ob ein Wert überhaupt gefunden wurde oder hast Du eine Fehlerroutine?
Grüße,
Klaus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen Klaus,

danke Dir für Deine Hilfe.
Das war nur ein Teil vom Code.

------------------
Schöne Grüße
Feyza : )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Und was ist, wenn der Dateinamen noch weitere Punkte enthält?

Besser wäre es, du zerlegst den Text in alle Teile zwischen Punkten und setzt ihn dann wieder- bis auf den letzten Teil- zusammen:

Code:

---

   
Dim txtFilepath3 as string
dim n as byte
Dim Record As Variant
   
    txtFilepath3 = ""

    'Zerlegen des Textes mit Split:
    Record = Split(lblFileNameBox.Text, ".")

    'War überhaupt ein Punkt drin?
    If UBound(Record) > 0 Then
    'Wenn ja, dann die Éinzelteile zusammensetzen
        For n = 0 To UBound(Record) - 1
            txtFilepath3 = txtFilepath3 + Record(n)
            If n < UBound(Record) - 1 Then
             'mit je einem Punkt dazwischen
                txtFilepath3 = txtFilepath3 + "."
            End If
        Next n
    Else
        'Wenn nicht, dann einfach den Text übernehmen
        txtFilepath3 = lblFileNameBox.Text
    End If

---

Ach ja: Das ist VBA oder VB6, in .Net muss du das ein bischen korrigieren, da gibt es zum Beispiel keine Variant-Datentyp.
Aber das Prinzip bleib das selbe.

------------------
Klaus

www.al-ko.com | mein Gästebuch | privat...   

[Diese Nachricht wurde von KMassler am 08. Dez. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallöle,

nun gebe ich doch auch mal meinen Senf dazu ab!

Meiner Meinung nach ist es am besten wenn man Dateinamen und -pfade mit der Klasse System.IO.Path behandelt.
In dieser gibt es die Methode GetFileNameWithoutExtension, damit müsste die Aufgabe zu lösen sein.

------------------
Mfg Daniel

www.MySldWorks.de - SolidWorks Api Snippets

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Stimmt, daran hatte ich nicht gedacht, Asche über mein Haupt.
Bin aber erst mal von VBA ausgegangen...aber spätestens das VB.Left hätte mich wohl stutzig machen müssen.

------------------
Klaus

www.al-ko.com | mein Gästebuch | privat...   

[Diese Nachricht wurde von KMassler am 08. Dez. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ja es gibt viele Wege die nach Rom führen

Zitat:

---

Und was ist, wenn der Dateinamen noch weitere Punkte enthält

---

deshalb die Suche mit InStrRev(txtFilePath3, ".", -1) also von hinten den letzten Punkt holend gemacht.
Grüße,
Klaus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

wieder was gelernt:

1. man sollte die Beiträge richtig lesen, auch wenn das Antworten mehr Spaß macht als das Lesen 
2. InStrRev...noch nie vorher davon gehört gehabt, danke!

   

------------------
Klaus

www.al-ko.com | mein Gästebuch | privat...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP