我有一个想应用于我的 SQl 查询的函数。我正在使用 SQL Server。
我想不出一个好的方法来做到这一点。基本上我希望能够检查 COPY 列以查看它是否是西班牙语我想像这样
选择 * from 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
结束功能