uForum.uz - Visual Basicда дастур (кирилл-лотин ўтказгич)

Форумдошлар агар сиз VBда ишлаган бўлсангиз ёки компьютерда дастурлашни уддасидан яхши чиқсангиз ушбу ёзилганлардан хато топишингиз сўраб қоламан. Мен ушбуни компда ишлата олмадим. Балким сиз баъзи ўзгартиришлар қилиб дастурни ишга тушира олсангиз форумдошлар учун қимматли ўзбек тилини кирилл-лотин ёзувларига ўтказгичи бўлар эди.

шундай қилиб мен Microsoft Visual Basic .NET да ушбуни тайёрладим.
PHP код:

		
			
Imports EnvDTE

Imports System.Diagnostics



Public Module Module2

    Sub Макрос1()

        '

        ' Макрос1 Макрос

        ' Макрос записан 01.05.2010 Akhmedov

        Selection.HomeKey(Unit:=wdLine)

        Application.Keyboard(1033)

        Selection.MoveRight(Unit:=wdCharacter, Count:=1)

        Selection.MoveLeft(Unit:=wdCharacter, Count:=1, Extend:=wdExtend)

        While ((Selection.End + 1) <> Selection.StoryLength)

            Select Case Selection

                Case "А"

                    Selection.TypeText(Text:="А")

                Case "Б"

                    Selection.TypeText(Text:="B")

                Case "В"

                    Selection.TypeText(Text:="V")

                Case "Г"

                    Selection.TypeText(Text:="G")

                Case "Д"

                    Selection.TypeText(Text:="D")

                Case "Е"

                    Selection.TypeText(Text:="Ye")

                Case "Ё"

                    Selection.TypeText(Text:="Yo")

                Case "Ж"

                    Selection.TypeText(Text:="J")

                Case "З"

                    Selection.TypeText(Text:="Z")

                Case "И"

                    Selection.TypeText(Text:="I")

                Case "Й"

                    Selection.TypeText(Text:="Y")

                Case "К"

                    Selection.TypeText(Text:="K")

                Case "Л"

                    Selection.TypeText(Text:="L")

                Case "М"

                    Selection.TypeText(Text:="M")

                Case "Н"

                    Selection.TypeText(Text:="N")

                Case "О"

                    Selection.TypeText(Text:="O")

                Case "П"

                    Selection.TypeText(Text:="P")

                Case "Р"

                    Selection.TypeText(Text:="R")

                Case "С"

                    Selection.TypeText(Text:="S")

                Case "Т"

                    Selection.TypeText(Text:="T")

                Case "У"

                    Selection.TypeText(Text:="U")

                Case "Ф"

                    Selection.TypeText(Text:="F")

                Case "Х"

                    Selection.TypeText(Text:="X")

                Case "Ц"

                    Selection.TypeText(Text:="S")

                Case "Ч"

                    Selection.TypeText(Text:="Ch")

                Case "Ш"

                    Selection.TypeText(Text:="Sh")

                Case "Ў"

                    Selection.TypeText(Text:="O‘")

                Case "Ь"

                    Selection.TypeText(Text:="")

                Case "Қ"

                    Selection.TypeText(Text:="Q")

                Case "Ъ"

                    Selection.TypeText(Text:="'")

                Case "Э"

                    Selection.TypeText(Text:="E")

                Case "Ю"

                    Selection.TypeText(Text:="Yu")

                Case "Я"

                    Selection.TypeText(Text:="Ya")

                Case "&#1202;"

                    Selection.TypeText(Text:="H")

                Case "Ғ"

                    Selection.TypeText(Text:="G‘")

                Case "а"

                    Selection.TypeText(Text:="a")

                Case "б"

                    Selection.TypeText(Text:="b")

                Case "в"

                    Selection.TypeText(Text:="v")

                Case "г"

                    Selection.TypeText(Text:="g")

                Case "д"

                    Selection.TypeText(Text:="d")

                Case "е"

                    Selection.TypeText(Text:="ye")

                Case "ё"

                    Selection.TypeText(Text:="yo")

                Case "ж"

                    Selection.TypeText(Text:="j")

                Case "з"

                    Selection.TypeText(Text:="z")

                Case "и"

                    Selection.TypeText(Text:="i")

                Case "й"

                    Selection.TypeText(Text:="y")

                Case "к"

                    Selection.TypeText(Text:="k")

                Case "л"

                    Selection.TypeText(Text:="l")

                Case "м"

                    Selection.TypeText(Text:="m")

                Case "н"

                    Selection.TypeText(Text:="n")

                Case "о"

                    Selection.TypeText(Text:="o")

                Case "п"

                    Selection.TypeText(Text:="p")

                Case "р"

                    Selection.TypeText(Text:="r")

                Case "с"

                    Selection.TypeText(Text:="s")

                Case "т"

                    Selection.TypeText(Text:="t")

                Case "у"

                    Selection.TypeText(Text:="u")

                Case "ф"

                    Selection.TypeText(Text:="f")

                Case "х"

                    Selection.TypeText(Text:="x")

                Case "ц"

                    Selection.TypeText(Text:="s")

                Case "ч"

                    Selection.TypeText(Text:="ch")

                Case "ш"

                    Selection.TypeText(Text:="sh")

                Case "ў"

                    Selection.TypeText(Text:="o‘")

                Case "ь"

                    Selection.TypeText(Text:="")

                Case "қ"

                    Selection.TypeText(Text:="q")

                Case "ъ"

                    Selection.TypeText(Text:="'")

                Case "э"

                    Selection.TypeText(Text:="e")

                Case "ю"

                    Selection.TypeText(Text:="yu")

                Case "я"

                    Selection.TypeText(Text:="ya")

                Case "ҳ"

                    Selection.TypeText(Text:="h")

                Case "ғ"

                    Selection.TypeText(Text:="g‘")

                Case Else

                    Selection.TypeText(Text:=Selection)



            End Select

            Selection.MoveRight(Unit:=wdCharacter, Count:=1)

            Selection.MoveLeft(Unit:=wdCharacter, Count:=1, Extend:=wdExtend)

        End While





    End Sub



End Module