VPF::транслит ФИО - Форум программистов

Adanedel

Дата 26.8.2008, 09:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 14.1.2008

Репутация: нет
Всего: нет

Добрый день, в программе появилась необходимость записывать фио на АНГЛ как в загранпаспортах и соотв необходимость переводить русские ФИО на АНГЛ. Нет ли у кого правил общих или может кода на ВБ для транслита ФИО с русского на АНГЛ, заранее благодарен)

Akina

Дата 26.8.2008, 09:49 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 1
Всего: 454

http://gsnti-norms.ru/norms/common/doc.asp...stands/7_79.htm

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Adanedel

Дата 26.8.2008, 09:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 14.1.2008

Репутация: нет
Всего: нет

огромное спасибо) пойду накатаю код переводу

Akina

Дата 26.8.2008, 10:02 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 1
Всего: 454

Думаю, что если напишешь хорошо, УНИВЕРСАЛЬНО, есть смысл подготовить в виде статьи в FAQ.

--------------------

Adanedel

Дата 26.8.2008, 12:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 14.1.2008

Репутация: нет
Всего: нет

Вот, что получилось в первоначальной версии.
Два текстовых поля: первое NameBox для ввода русского ФИО, второе EngNameBox для транслита
В коде учитывается первая буква, чтобы сделать ее большой, а так же подсчет двух слов по пробелам, т.к. переводятся только имя и фамилия(ну по крайней мере мне так надо было)
Далее код для кнопки ВБ2005:

Код



Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

    Dim BukviRus() As String = {" ", "А", "Б", "В", "Г", "Д", "Е", "Ж", "З", "И", "Й", "К", "Л", "М", "Н", "О", "П", "Р", "С", "Т", "У", "Ф", "Х", "Ч", "Ц", "Ш", "Щ", "Ы", "Ь", "Э", "Ю", "Я"}
    Dim BukviEng() As String = {" ", "A", "B", "V", "G", "D", "E", "Zh", "Z", "I", "Y", "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "F", "Kh", "Ch", "Ts", "Sh", "Shch", "Y", "", "E", "Yu", "Ya"}

        Dim FIOrus As String = ""
        Dim FIOeng As String = ""

        Dim i, j, p, f As Integer 'рабочие переменные, i,j счетчики, p подсчет пробелов, f подсчет первой буквы слова
        f = 1
        p = 0
        FIOrus = NameBox.Text
        Dim massSymb() As Char = CType(FIOrus.ToUpper, Char())

        For i = 0 To massSymb.Length - 1

            If (massSymb(i) = " ") Then
                p = p + 1
                f = 0
            End If

            If (p = 2) Then
                Exit For
            End If

            For j = 0 To BukviRus.Length - 1
                If (massSymb(i) = BukviRus(j)) Then
                    If (f = 1) Then
                        FIOeng = FIOeng & BukviEng(j)
                    Else
                        FIOeng = FIOeng & BukviEng(j).ToLower
                    End If
                    f = f + 1
                    Exit For
                End If
            Next
        Next
        EngNameBox.Text = FIOeng
    End Sub

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »