Variablen mit Sonderzeichen analysieren
24.06.2010 12:20:06
NoNet
Hallo Ludwig,
hier der erweiterte Code, der auch Variablen mit Sonderzeichen oder Ziffern hinter dem Variablenbuchstaben erkennt :
Private Sub cmdAnalysieren_Click()
'Analysieren eines Funktionsterms (txtTerm) nach Variablen (Buchstaben)
'auch mit sonderzeichen oder Ziffern HINTER dem Variablenbuchstaben
'24.06.2010, NoNet - www.excelei.de
Dim objColl As New Collection
Dim intI As Integer, intZ As Integer
Dim strVar As String, strTemp As String
'Standard-Variablennamen : Buchstaben von A bis Z (auch kleingeschrieben)
Const strABC = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
'Diese Zeichen können hinter dem Buchstaben stehen,
'gehören ebenfalls zum Variablennamen :
Const strSonderzeichen = "0123456789_"
On Error Resume Next 'um Fehler bei bereits gefundener Variable zu verhindern
For intI = 1 To Len(txtTerm.Value)
If InStr(strABC, UCase(Mid(txtTerm, intI, 1))) > 0 Then
If intI = Len(txtTerm) Then
objColl.Add Mid(txtTerm, intI, 1), Mid(txtTerm, intI, 1)
Else
strTemp = Mid(txtTerm, intI, 1)
For intZ = intI + 1 To Len(txtTerm)
If InStr(strABC & strSonderzeichen, UCase(Mid(txtTerm, intZ, 1))) > 0 Then
strTemp = strTemp & Mid(txtTerm, intZ, 1)
intI = intZ
Else
intZ = Len(txtTerm)
End If
Next
objColl.Add strTemp, strTemp
End If
End If
Next
strVar = "Folgende Variablen wurden im Term gefunden :" & vbLf & vbLf
For intI = 1 To objColl.Count
strVar = strVar & objColl(intI) & vbLf
Next
MsgBox strVar
End Sub
Gruß, NoNet