0
Public Function StripUnwanted(ByVal unwanted_strIn) As String
On Error GoTo Err_StripUnwanted
Dim lngCount As Long
If Not IsNull(unwanted_strIn) Then
For lngCount = 1 To Len(unwanted_strIn)
If IsNumeric(Mid$(unwanted_strIn, lngCount, 1)) Then
strOut = strOut & Mid$(unwanted_strIn, lngCount, 1)
End If
Next lngCount
End If
StripUnwanted = strOut
Exit_StripUnwanted:
Exit Function
Err_StripUnwanted:
MsgBox Err.Number & Err.Description
Resume Exit_StripUnwanted
このコードをアクセスにリンクされたVBで実行していますが、このコードをSQLPlusに変換しようとしていますが、その方法についてもわかりません。私はGoogleにしようとしているし、非常に遠くの助けや方向性を得ることは素晴らしいことはありません。SQL内の文字列から不要な文字列
SQLPlusには正規表現があります。理由は何ですか?これは使えない? https://docs.oracle.com/cd/B19306_01/server.102/b14200/functions130.htm – Crackerman