Results 1 to 10 of 10
Hybrid View
-
25th April 2006 00:01 #1Registered User
Join Date: Mar:2006
Location: sofia
Posts: 259
Êîíâåðòèðàíå íà áóêâè îò êèðèëèöà íà ëàòèíèöà
Èìà ëè íÿêàêúâ íà÷èí äà ñå ïðåâúðíå òåêñò íàïèñàí íà êèðèëèöà â òåêñò íàïèñàí ñ ëàòèíñêè áóêâè.Ñâàëèõ åäíà ïðîãðàìà çà ÷åòåíå íà òåêñòîâè ôàèëîâå íà ãëàñ íî òÿ íå ìîæå äà ÷åòå òåêñòîâå íà áúëãàðñêè à è íå ìîæàõ äà îòêðèÿ òàêàâà êîÿòî äà ÷åòå áúëãàðñêè òåêñòîâå.Çàòîâà èñêàì äà âèäÿ êàêâî ùå ñå ïîëó÷è àêî êîíâåðòèðàì òåêñòà â òàêúâ ñ ëàòèíñêè áóêâè
-
25th April 2006 01:42 #2
Ïîùàòà â abv.bg. Åòî êàê ñå ñïðàâÿ:
Èìà ëè íÿêàêúâ íà÷èí äà ñå ïðåâúðíå òåêñò íàïèñàí íà êèðèëèöà â òåêñò íàïèñàí ñ ëàòèíñêè áóêâè.Ñâàëèõ åäíà ïðîãðàìà çà ÷åòåíå íà òåêñòîâè ôàèëîâå íà ãëàñ íî òÿ íå ìîæå äà ÷åòå òåêñòîâå íà áúëãàðñêè à è íå ìîæàõ äà îòêðèÿ òàêàâà êîÿòî äà ÷åòå áúëãàðñêè òåêñòîâå.Çàòîâà èñêàì äà âèäÿ êàêâî ùå ñå ïîëó÷è àêî êîíâåðòèðàì òåêñòà â òàêúâ ñ ëàòèíñêè áóêâè
Ima li niakakyv nachin da se prevyrne tekst napisan na kirilica v tekst napisan s latinski bukvi.Svalih edna programa za chetene na tekstovi failove na glas no tia ne mozhe da chete tekstove na bylgarski a i ne mozhah da otkriia takava koiato da chete bylgarski tekstove.Zatova iskam da vidia kakvo shte se poluchi ako konvertiram teksta v takyv s latinski bukvi
Z790 Elite AX | 13900K | Freezer II 420 | 2x16GB@6400 | RTX 4090 | Fury Renegade 1TB | Dark Power 13 1000W | Enthoo Pro | AW3423DW
-
25th April 2006 02:02 #3Banned
Join Date: Jan:2003
Location: .
Posts: 6,635
Èìà ïðîãðàìêà ñïåöèàëíî íàïèñàíà çà òàçè öåë. Êàçâà ñå shtirlitz. Ðóñêà å è å ìíîãî äîáðà. Ïîääúðæà äîñòà âèäîâå êîäèðàíå è ìîæå äà ñè íàñòðîéâàø ñàì îòäåëíè ïîðåäèöè îò áóêâè è ò.í. çà äà ñúâïàäàò ñ òâîÿò ñòèë íà ÷åòåíå/ïèñàíå. Àç ïîëçâàì âåðñèÿ 4.01. Ïðîãðàìêàòà å áåçïëàòíà.
http://www.google.com/search?q=shtir...-US%3Aofficial
-
25th April 2006 10:33 #4
È Äàòåêñ èìàò ïîäîáíà ïðîãðàìà, ìèñëÿ ÷å áåøå îòäåëíî îò ôëåêñ òàéï êîåòî å äîáðå
-
25th April 2006 10:35 #5
Åòî åäíà: http://www.download.bg/index.php?cls=program&id=12345
È íåùî online: http://latcyr.hit.bg/Sarcasm is just one more service I îffer.
Me, mad? Haha... quite likely.There is life. There is death. And then there is me.
-
27th April 2006 21:52 #6
Íà òè åäíî ìàêðî çà Óüúðä:
Sub ÊèðèëèöàÊúìËàòèíèöà()
'
Dim Cyr$
Dim Lat$
Dim i As Integer
Dim j As Integer
Cyr$ = "ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖרÙÚÜÞßàáâãäåæçè éêëìíîïðñòóôõö÷øùúüþÿ"
Lat$ = "ABWGDEVZIJKLMNOPRSTUFHC~{}YX|Qabwgdevzi jklmnoprstufhc`[]yx\q"
For i = Selection.Start + 1 To Selection.End
For j = 1 To 60
If ActiveDocument.Characters(i) = Mid$(Cyr$, j, 1) Then
ActiveDocument.Characters(i) = Mid$(Lat$, j, 1)
End If
Next j
Next i
End Sub
Åé òè îùå åäíî çà îáðàòíîòî: ëàòèíèöà êúì êèðèëèöà
Sub ËàòèíèöàÊúìÊèðèëèöà()
'
Dim Cyr$
Dim Lat$
Dim i As Integer
Dim j As Integer
Cyr$ = "ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖרÙÚÜÞßàáâãäåæçè éêëìíîïðñòóôõö÷øùúüþÿ"
Lat$ = "ABWGDEVZIJKLMNOPRSTUFHC~{}YX|Qabwgdevzi jklmnoprstufhc`[]yx\q"
For i = Selection.Start + 1 To Selection.End
For j = 1 To 60
If ActiveDocument.Characters(i) = Mid$(Lat$, j, 1) Then
ActiveDocument.Characters(i) = Mid$(Cyr$, j, 1)
End If
Next j
Next i
End Sub
Ïîëçâàì ãè, êàòî íå ñúì ñìåíèë êëàâèøíàòà ïîäðåäáà è ñè ïèøà íà ëàò, âìåñòî íà êèð èëè îáðàòíîòî.
Ïðåíàðåäè ñè íèçîâåòå CYR$ è LAT$, êàêòî íà òåá òè õàðåñâà!
Ï.Ï. Èìàì è íåùî ïîäîáíî, äåò îáðúùà ÀÍÑÈÈ êúì óíèêîä, ìà ìíîãî ñå çàïúëíè ïðîçîðåöúò.È íàé-äîáðå ñêðîåíèòå ìå÷òè íà ìèøêèòå è õîðàòà ÷åñòî îñòàâàò ÷åñòî íåîñúùåñòâåíè.




Reply With Quote
Íå âúçìîæíîñò äà èçêëþ÷à êîìïþòúðà
07.05.23 ã., 16:02 in Îáù ôîðóì çà PC õàðäóåð