SQl クエリに適用したい関数があります。SQL Server を使用しています。
いい方法が思い浮かびませんが。基本的に、COPY列をチェックしてスペイン語かどうかを確認できるようにしたいのですが、次のようなものを想像します
INFO where isForeign(Copy) から * を選択
関数は次のとおりです。
Function IsForeign(theString)
Dim strAlphaNumeric
Dim strChar
Dim Found
Dim i
strAlphaNumeric = "àáâèéçêóô" ' French, Spanish
strAlphaNumeric = strAlphaNumeric & "ÀÈÉÒÓÙàèéòóù" ' Italian
strChar = ""
Found = False
' Characters
For i = 1 to Len(theString)
strChar = Mid(theString, i, 1)
If Instr(strAlphaNumeric, strChar) Then
Found = True
End If
Next
IsForeign = Found
終了機能