Results 1 to 10 of 10

Thread:

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Mar:2006
    Location: sofia
    Posts: 259

    . .

  2. #2
    Power Of Inner Strength patica's Avatar
    Join Date: Feb:2004
    Location: * [SF]
    Posts: 1,722
    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

  3. #3
    Banned
    Join Date: Jan:2003
    Location: .
    Posts: 6,635

  4. #4
    Registered User SeT's Avatar
    Join Date: Aug:2002
    Location: Sofia
    Posts: 6,865
    ,

  5. #5
    Dark Traveler massacre's Avatar
    Join Date: May:2003
    Location: Ta'Xbiex, Malta
    Posts: 7,100
    Sarcasm is just one more service I ffer.
    Me, mad? Haha... quite likely.
    There is life. There is death. And then there is me.

  6. #6
    . 's Avatar
    Join Date: Feb:2006
    Location: .
    Posts: 2,737

    Talking

    :


    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$, !

    .. , , .
    - .

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |