Office: (Office 2007) Zeichenketten aus einem StrinG filtern

maryjam01 · 18. September 2006

Hallo Zusammen!
Ich möchte gerne aus einem String (wie er unten steht) die Einträge aus zwischen den "," in Excel importieren. Das ganze ist eine *.csv Datei, da in dem langen Text auch Kommata sind, wird der IMport schwierig. Hat vielleicht jemand eine Idee? Zudem benötige ich auis dem String nich die Nummer aus VX_******_.
Danke für die Hilfe *wink.gif*
Bestgruß, Mary

Code:

XYZ3: VX_OPQRS1234_Sdfgdf TExt: Hier kommt ein beliebig langer Text, der nicht von """" o.ä. eingefasst ist, in diesem Satz sind Kommas und am Ende steht ein Punkt. Dannch stehen 17 Kommata, die genau die Felder trennen, die mich interessieren.,"","","F","","","","","","","","","","","","F","F","",""
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Peter9 · 20. September 2006

Hallo Mary

gehe mal in Excel auf "Daten" und dann auf "Daten importierten"

Gruß Peter9

maryjam01 · 20. September 2006

Hi Peter!
Das habe ich schon probiert, allerdings sind in dem String (in dem Text) auch Kommata. So lassen sich die Felder, die ja eigentlich als csv (Comma seperated) exportiert sind, nicht mehr genau trennen, bzw es kommt zu Feldverschiebungen. Man müsste den String irgendwie vom Ende aus importieren o.ä.. Genau das ergibt das Problem.

Bestgruß, Mary

Edit: Gibt es vielleicht die Möglichkeit in Excel die letzten durch Komma getrennten Felder an den Anfang einer Zelle zu bringen? Also nicht pauschal die letzt X Zeichen, sondern die letzte durch Komma getrennten.... *eek.gif*

Steffen0815 · 20. September 2006

Hallo Mary,
also als erstes solltest du mal schauen, ob sich das System was diese "CSV" generiert nicht konfigurierbar ist. Denn das was du hier vorstellst hat mit CSV eigentlich nichts zu tun, denn die Daten sind (komplett) nicht bearbeitbar.
Wenn ich dich richtig verstanden habe, möchtest du nur die letzten x Felder einer Zeile importieren. Diese Felder enthalten dann (hoffentlich) keine Kommas.
"InstrRev" Ab AC2000 kann z.B. von hinten suchen, oder man macht eine eigene Funktion: Code:

Sub xxx()
Const myStr = "XYZ3: VX_OPQRS1234_Sdfgdf TExt: Hier kommt ein beliebig langer Text, der nicht " & _
"von """""""" o.ä. eingefasst ist, in diesem Satz sind Kommas und am Ende steht ein Punkt." & _
" Dannch stehen 17 Kommata, die genau die Felder trennen, die mich interessieren.,"""",""""," & _
"""F"","""","""","""","""","""","""","""","""","""","""","""",""F"",""F"","""","""""
Debug.Print fncRevSubStr(myStr, ",", 17)
End Sub

Function fncRevSubStr(myStr As String, Trenner As String, Anzahl As String) As String
Dim i As Integer, ZTrenn As Integer
For i = Len(myStr) To 1 Step -1
If Mid(myStr, i, 1) = Trenner Then ZTrenn = ZTrenn + 1
If ZTrenn = Anzahl Then Exit For
Next
fncRevSubStr = Mid(myStr, i + 1)
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sollte sich die Datei nicht verändern lassen, gibt es folgende Möglichkeiten:
1) du schreibst eine neue Datei mit den letzen x Feldern und importierst diese mit den Standardfunktionen
2) du importierst direkt mit VBA

maryjam01 · 21. September 2006

Moin Steffen!
Es würde mir ja auch schon völlig reichen, wenn ich die letzten 17 in Kommata eingefassten Zeichen importieren kann und die erste Nummer zwischen den "_" Ich brauch enur den Bezug von der Nummer zu den Attributen und die stehe halt in einer Zeile mit der Nummer zwischen den """".

Ich kann den Export leider nicht beeinflussen, ich weiß auch, dass das völliger Humbuck ist *wink.gif* Ich kann´s net ändern.
BTW: Wie kann ich deinen Code denn Ausführen. Hab den schon in ein Modul gepackt und rufe das dann über mein Makro auf. Funtzt aber nicht.
Thx für die Hilfe *wink.gif*

Bestgruß, Mary

Steffen0815 · 21. September 2006

Hallo,
versuch mal folgenden Code, der ohne Originaldaten aber noch ungetestet ist: Code:

Sub xxx()
subDateiKonv "d:\tar\mytest.txt", "d:\tar\KonvMytest.csv"
End Sub

Function fncRevSubStr(myStr As String, Trenner As String, Anzahl As String) As String
Dim i As Integer, ZTrenn As Integer
For i = Len(myStr) To 1 Step -1
If Mid(myStr, i, 1) = Trenner Then ZTrenn = ZTrenn + 1
Debug.Print Mid(myStr, i, 1), Trenner
If ZTrenn = Anzahl Then Exit For
Next
fncRevSubStr = Mid(myStr, i + 1)
End Function

Sub subDateiKonv(QuellDatNam As String, ZielDatNam As String)
Dim iDatNum As Integer, oDatNum As Integer
Dim Zeile As String, AktNum As String
Close
iDatNum = FreeFile
Open QuellDatNam For Input As iDatNum
oDatNum = FreeFile
Open ZielDatNam For Output As oDatNum
While Not EOF(iDatNum)
Line Input #iDatNum, Zeile
AktNum = Mid(Mid(Zeile, InStr(Zeile, "_") + 1), 1, InStr(Zeile, "_"))
Print #oDatNum, AktNum & "," & fncRevSubStr(Zeile, ",", 17)
Wend
Close iDatNum
Close oDatNum
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

maryjam01 · 21. September 2006

Okay.....

Es scheint auf den ersten Blick zu klappen! Großartig, da hat mir aber fast jemand den Feierabend gerettet *wink.gif*
Sollte noch etwas sein werd ich mich vertrauensvoll an dich wenden *wink.gif*
1000 Dank...!

Bestgruß, Mary

Office: (Office 2007) Zeichenketten aus einem StrinG filtern

Zeichenketten aus einem StrinG filtern

Zeichenketten aus einem StrinG filtern

Zeichenketten aus einem StrinG filtern

Zeichenketten aus einem StrinG filtern - Similar Threads - Zeichenketten StrinG filtern

Code erkennt Zeichenkette (leerzeichen nicht)

String in Zeichenkette gesucht

Zeichenkette Text, Zahle und Buchstaben trennen

Zeichenkette zerlegen am leerzeichen !

Zeichenkette mit Leerzeichen aufsplitten

Datei Name aus Textstring extraieren

Zählen von Zeichenkette