Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > MS Access > Замена части данных в полях с помощью запроса

Автор: hudoi 2.3.2005, 11:37

Всем привет.
Прошу помощи.

Задача. После импорта данных в Access, необходимо в некоторых полях с помощью запроса заменить русские буквы на необходимые латинские, в верхнем регистре. Для последующего экспорта данных.

Например:
а на A
б на B
в на V
г на G

Может кто с такой задачей сталкивался, даст совет или ссылку...

Пытался обсудить проблему на других форум по Access - решение не было найдено. Наверное очень специфичный вопрос...

Автор: Akina 2.3.2005, 11:49

Нет проблем.

1) Создаем массив в 256 байт, где x(i)=замена для chr(i), т.е. например
русское А имеет в СР1251 код &HC0=192, заменить ее надо на латинскую A, для которой код &H41=65, следовательно x(192)=chr(65)="A".
2) Производим замену программно:

Код


'draft code
openrecordset
.movefirst
  while not .eof
  .edit
  temp=""
  for i=1 to len(!fld)
    temp=temp & x(asc(mid(!fld,i)))
  next i
  !fld=temp
  .update
  .movenext
wend
closerecordset

Автор: hudoi 2.3.2005, 12:22

К сожалению экспертом в области использования Access не являюсь. Мягко сказано smile

Пример бы посмотреть pls
smile

Автор: Akina 2.3.2005, 12:37

Ищи готовую функцию транслитерации на VBA и подключай ее к своей базе...