Можно ли проверить "С" кириллическая или латинская

[erzhavin]

Собственно вот и вопрос. В VIN кодах машин очень часто люди пишут некоторые буквы кириллицей, что не есть хорошо! Не проходят загрузки! Можно ли проверить - есть ли в строке кириллические буквы? Спасибо.

[alibek]

Что за VIN коды?
Проверить можно, глянув ASCII-код символа.

[erzhavin]

VIN коды проданных автомобилей. К примеру: JN1АBNT30U001921. Буква "А" в этой строке русская! А должна быть латинская! То есть такое может быть в любом VIN коде, в любом месте!

[RayShade]

А что, функцию Asc мы типа в школе не проходили?

[erzhavin]

Нет, не проходилии-и-и. У меня "3" было по информатике в школе...

[alibek]

Код: Выделить всё

Function No7bit(ByVal Value As String) As Boolean
Dim I As Long
For I = Len(Value) To 1 Step -1
  If Asc(Mid$(Value, I, 1)) > 127 Then Exit For
Next I
No7bit = (I > 0)


[erzhavin]

Я сделал так, глядя на Ваши советы!

Код: Выделить всё

For i = 1 To Len(VINstring)
            ch = Mid(VINstring, i, 1)
            If Asc(ch) > 128 Then
            Reply = MsgBox("Бля, неужели аккуратно нельзя вводить данные? Отметить Неправильный VIN красным цветом?", vbYesNo Or vbCritical)
            Red = True ' Типа, давай отметим!
            End If
            Next


[shyrik_m]

Вот готовая функция, возвращает строку с подмененными заглавными символами кирилицы на заглавные латинские

Function КирЛат(VINstring)
For I = 1 To Len(VINstring)
ch = Mid(VINstring, I, 1)
If Asc(ch) > 191 And Asc(ch) < 256 Then

Select Case Asc(ch)

Case 192
ch = 65
Case 194
ch = 66
Case 209
ch = 67
Case 205
ch = 72
Case 202
ch = 75
Case 204
ch = 77
Case 206
ch = 79
Case 208
ch = 80
Case 210
ch = 84
Case 213
ch = 88
End Select

If I = 1 Then VINstring = Chr(ch) & Right(VINstring, Len(VINstring) - I)
If I <> 1 And I <> Len(VINstring) Then VINstring = Left(VINstring, I - 1) & Chr(ch) & Right(VINstring, Len(VINstring) - I)
If I = Len(VINstring) Then VINstring = Left(VINstring, I - 1) & Chr(ch)
End If
Next
КирЛат = VINstring
End Function

[shyrik_m]

Отобранные коды, для тех кто хочет дальше попарится дальше

a 97 A 65
b 98 B 66
c 99 C 67
h 104 H 72
k 107 K 75
m 109 M 77
o 111 O 79
p 112 P 80
t 116 T 84
x 120 X 88


а 224 А 192
в 226 В 194
с 241 С 209
н 237 Н 205
к 234 К 202
м 236 М 204
о 238 О 206
р 240 Р 208
т 242 Т 210
х 245 Х 213

[GSerg]

Попариться, паимаишь...

Код: Выделить всё

Function КирЛат(VINstring as string) as string
  const rus as string = "авснкмортх"
  const lat as string = "ABCHKMOPTX"
  dim i as long, t as long
 
  КирЛат=vinstring
  for i=1 to len(vinstring)
    t=instr(1,rus,mid$(vinstring,i,1),vbtextcompare)
    if t then mid$(КирЛат,i,1)=mid$(lat,i,1)
  next
end function

[shyrik_m]

GSerg
Гениально!!!
не надо рыться в кодах!
Две "паралельные" строки "данных"
но только посмотри на результат

нкмо ABCH
всн ABC
ортх ABCH

сыроватая функция
А идейкой твоей (по истине гениальной) воспользуюсь и доработаю!

[shyrik_m]

Нашел ошибку, правильно так

Function КирЛат(VINstring as string) as string
const rus as string = "авснкмортх"
const lat as string = "ABCHKMOPTX"
dim i as long, t as long

КирЛат=vinstring
for i=1 to len(vinstring)
t=instr(1,rus,mid$(vinstring,i,1),vbtextcompare)
if t then mid$(КирЛат,i,1)=mid$(lat,t,1) 'тута была "=mid$(lat,t,1)", вместо i - t
next
end function

[GSerg]

Угу...