VB - ASCII <-> Shkronja

[My_Soul]

Ne nje text editor, pasi zgjedh text me SelText, ta kthej Text e zgjedhur germe per germe ne shifra sipas kodit ASCII dhe pastaj ta kthej perseri ne text: d,m.th

n.q.s texti i zgjedhur eshte "book" ta kthej ne 45,78,89,102 dhe pastaj ta kthej perseri ne "book".

Pjesen e pare mendoj se e kam zgjidhur, tek e dyta jam ne medyshje. Megjithate edhe per pjesen e pare kisha shume deshire te shikoja ndonje zgjidhje tjeter te ndryshme nga e imja.

[edspace]

VB ka vete funksione qe ndryshojne ASCII ne shkronja dhe anasjelltas.

Asc("A") = 65

Chr(65) = "A"

Funksionet e tua vetem sa duhet te ndajne shkronjat nje e nga nje dhe te perdorin Asc() dhe Chr() si me lart. Pra, do ti perseritesh (loop) funksionet me lart per te gjitha shkronjat me rradhe. Numrin e shkronjave ne nje shprehje e gjen me funksionin len().
psh: len("abcd") = 4

[My_Soul]

Thanks Ed, e dija qe ti do pergjigjeshe. Kete pjese e kam bere dhe i kam ndare
ASC("shkronjat") me "|", p.sh 65|45|78|98|. Tani dua t'i kthej perseri ne germa, ketu nuk me ecen. Ke ndonje ide?

[edspace]

Më poshtë ke funksionin.
Studioje mirë para se ti ndryshosh emrin dhe t'ja dorëzosh mësuesit. Puna është që ta kuptosh atë që po bëhet që nesër të mos pyesësh prapë në forum por të jesh i aftë ti bësh vetë këto gjëra.

Përdorimi:
numra_ne_shkronja("65|66|67|68|") = "ABCD"
Unë u bazova mbi shëmbullin që kishe dhënë më lart. Nqs përdor tjetër format, duhet të ndryshosh edhe funksionin më poshtë.

Ideja është kjo:
- marrin një seri numrash të ndare me |
- gjejme pozicionin e | së parë me InStr()
- marrim të gjitha shifrat deri tek ndarësi me Left()
- I kthejme shifrat në një numër të plotë (integer) me CInt()
- Numrin e plotë e kthejmë në një shkronjë me Chr()
- Shkronjën ja bashkëngjisim shprehjes
- Fshijmë serinë e numrave që e përkthyem në një shkronjë
- Vazhdojmë këtë proces për aq kohë sa nuk kemi mbaruar përkthimin

Private Function numra_ne_shkronja(numrat As String)
    
    Dim shkronja As String
    Dim shprehja As String
    Dim ndaresi As Integer
    
    shkronja = ""
    shprehja = ""
    
    While Len(numrat) > 0
        
        ndaresi = InStr(1, numrat, "|")
        
        shkronja = Chr(CInt(Left(numrat, ndaresi - 1)))
        
        shprehja = shprehja & shkronja
        
        numrat = Right(numrat, Len(numrat) - ndaresi)
           
    Wend
    
    numra_ne_shkronja = shprehja
    
End Function

[My_Soul]

Thanks Ed per pergjigjen, por e zgjidha vete problemin mbreme.
Detyren e dorezova sot ne mengjes. Here tjeter mos u mendo kaq gjate, lol se ja mund te ndodhte e papritura qe une mos e kisha bere detyren.