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

[axmedovshuhrat]

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

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

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 "Ҳ"
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

[Shuhrat Ismailov]

Адаш ака. Аттач қилинган визуал бейсик дастурлари билан солиштиринг. Менда ишлаяпти-ю, аммо негадир қ, ғ, ҳ ларни бошқа символларга алмаштираяпти. Уларни кейин "Поиск-замена" функциялари билан жойига қўяпман. Неудобно

[axmedovshuhrat]

Адаш ака. Аттач қилинган визуал бейсик дастурлари билан солиштиринг. Менда ишлаяпти-ю, аммо негадир қ, ғ, ҳ ларни бошқа символларга алмаштираяпти. Уларни кейин "Поиск-замена" функциялари билан жойига қўяпман. Неудобно
Ака Сизда 2010 Office ўрнатилган бўлса синаб кўрингчи? Айтишларича бундай ҳолат 2010да содир бўлмас экан. Яна билмадим чунки ўзим 2010да ишлаб кўрмадим. VBда тузишдан асосий мақсадим ҳам ҳамма мавжуд ҳарфларни ўтказа олсин. Office 2003да ишлатганда менда қ, ғ, ҳ лар "?" белгиси бўлиб қолар эди.

[axmedovshuhrat]

Сизни тайёрлаган дастурингизда русча ҳарфларни олиб ташлаб янгиладим. Ҳамда икки қадамда барча ҳарфларни (ў, қ, ғ, ҳ ларни ҳам) ўзгартира оладиган вариантга ўтказдим.

[sawa]

Сизни тайёрлаган дастурингизда русча ҳарфларни олиб ташлаб янгиладим. Ҳамда икки қадамда барча ҳарфларни (ў, қ, ғ, ҳ ларни ҳам) ўзгартира оладиган вариантга ўтказдим.

ЭЭЭЭЭ РАҲМАТ АКА!!! Бутун инетрнетни титиб чиқдим, оири шу ердан топдим! Катта раҳмат!:clapping: