vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Text filtern bzw. nur Zahlen oder nur nur Text 
Autor: myVB
Datum: 06.02.16 23:30
Suche eine Funktion bzw Filter...

GemisterText = "Hallo123MeinFreund456 78"

msgbox MeineFunktionZahl(GemisterText) '=> sollte 12345678 bringen
msgbox MeineFunktionText(GemisterText) '=> sollte HalloMeinFreund bringen

Dürfte nicht schwer sein, aber für mich schon....


Danke...

Man kann nicht immer gewinnen...
Manschmal verliert man...
Manschmal gewinnen halt die anderen !

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Text filtern bzw. nur Zahlen oder nur nur Text 
Autor: Zardoz
Datum: 07.02.16 02:07
Hallo myVB,
probier' mal dies: 
  Dim i&, Out$, Txt$, Z$
 
  Txt = "Hallo123MeinFreund456 78"
  Out = ""
  For i = 1 To Len(Txt)
    Z = Mid(Txt, i, 1)
    If Not IsNumeric(Z) Then Out = Out & Z
  Next i
  MsgBox Out
Um nur Zahlen anzuzeigen, das Not weglassen.

Gruss,

Zardoz

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Text filtern bzw. nur Zahlen oder nur nur Text 
Autor: Rippler
Datum: 07.02.16 08:28
etwas komfortabler

verweis setzen = Microsoft VBScript Regular Expressions 5.5


Private Sub Form_Load()
Dim GemischterText As String
GemischterText = "Hallo123MeinFreund456 78"

MsgBox getClearString("[\D]", "Hallo123MeinFreund456 78")
MsgBox getClearString("[\d]", "Hallo123MeinFreund456 78")

End Sub

Function MeineFunktion(ByVal strPattern As String, ByRef strText As String) As String
Dim myRegEx As New RegExp

With myRegEx
.Global = True
.IgnoreCase = False
.MultiLine = False
.Pattern = strPattern

MeineFunktion = .Replace(strText, "")
End With

Set myRegEx = Nothing

End Function
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Text filtern bzw. nur Zahlen oder nur nur Text 
Autor: myVB
Datum: 07.02.16 18:26
Funktioniert Klasse


MsgBox getClearString("[\D]", "Hallo123MeinFreund456 78")
MsgBox getClearString("[\d]", "Hallo123MeinFreund456 78")

muss nur ersetzt werden mit


MsgBox MeineFunktion("[\D]", "Hallo123MeinFreund456 78") ' Nur Zahlen
MsgBox MeineFunktion("[\d]", "Hallo123MeinFreund456 78") ' Nur Buchstaben


hez#rzlichen Dank...

LG

Man kann nicht immer gewinnen...
Manschmal verliert man...
Manschmal gewinnen halt die anderen !

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel