Совсем не в тему, но очень нужно.

[lina]

Имеется тестовый файл. Как в строке определить какие буквы набраны в латинской раскладке, а какие в русской

[alibek]

А?

[vrodo]

проверяй аскии код те символы у которых код больше 128 не есть латиница

[lina]

Что надо проверять по кодам я знаю, а как это сделать?????

[vrodo]

есть такая функция Asc(<символ>)

пример
sub zzz()
dim i as integer

i = asc(" ")

messagebox i
end sub

запускаем

выскочит окошко где мы увидим цифру 32

[GSerg]

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

dim b() as byte, f as integer, i as long

f=freefile
open "file" for binary access read as #f
redim b(1 to lof(f))
get #f,,b
close #f

for i=lbound(b) to ubound(b)
  if b(i)>128 then debug.? "Extended" else debug.? "Basic"
next