Thema Datum  Von Nutzer Rating
Antwort
09.07.2021 09:17:50 Woppel
NotSolved
09.07.2021 09:26:44 Gast7836
NotSolved
09.07.2021 10:05:37 Gast6807
NotSolved
Blau Text Teil
 09.07.2021 10:22:40 Gast16778
NotSolved
09.07.2021 10:38:23 Gast71994
Solved
09.07.2021 10:59:56 Gast16778
NotSolved

Ansicht des Beitrags:
Von:
Gast16778		 Datum:
09.07.2021 10:22:40		 Views:
574		 Rating:
     
Antwort:
  Ja
Thema:
Text Teil

Nicht weiter schwer:

Option Explicit

Sub Test()
  
  Dim strExpression As String
  Dim objMatches As Object
  Dim objMatch As Object
  
  strExpression = "liquidity GG 3.25, market WB 0.25, points 15"
  
  With CreateObject("VBScript.RegExp")
    .Global = True
    .IgnoreCase = True
    .MultiLine = False
    .Pattern = " *([^,]+?) *((\d+)(\.\d+)?)"
    Set objMatches = .Execute(strExpression)
  End With
  
  For Each objMatch In objMatches
    Debug.Print "'"; objMatch.SubMatches(0); "'"; Tab(4); 'Ausdruck vor der Zahl
    Debug.Print "'"; objMatch.SubMatches(1); "'"; Tab(4); 'die Dezimalzahl
    Debug.Print "'"; objMatch.SubMatches(2); "'"; Tab(4); 'Vorkommastelle(n) der Dezimalzahl
    Debug.Print "'"; objMatch.SubMatches(3); "'"          'Nachkommastelle(n) der Dezimalzahl mit Punkt
  Next
  
End Sub

Ausgabe:

'liquidity GG'
   '3.25'
   '3'
   '.25'
'market WB'
   '0.25'
   '0'
   '.25'
'points'
   '15'
   '15'
   ''

Grüße

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.07.2021 09:17:50 Woppel
NotSolved
09.07.2021 09:26:44 Gast7836
NotSolved
09.07.2021 10:05:37 Gast6807
NotSolved
Blau Text Teil
 09.07.2021 10:22:40 Gast16778
NotSolved
09.07.2021 10:38:23 Gast71994
Solved
09.07.2021 10:59:56 Gast16778
NotSolved