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 #5Sarcasm 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