Dzziiiii !!! Le sujet en Zorglangue !!!

Ej evuort aç port tnarram ec euq suov ceva tiaf,
srola ia'j sap étsisér à eriaf nu "titep" emmargorp ruop
erircé ed sednaaaaarg sesarhp !!!

Neib rus, rap troppar à suov, ia'j sap ed etirém, ej euova'l.

Is aç esuma sniatrec, ej ennod el emmargorp !

🙂

+a sel Semmohlgoz te SrliGgoz !

'c xuerénég ed at trap!!!

Ceva eioj !

---------------------------------------------------
Programme een VisualBasic avec un bouton "Command1" et deux
textes "Text1" et "Text2" avec Multiline=True
---------------------------------------------------
Private Sub Command1_Click()

ret$ = ""
buf$ = Text1.Text

Do
' Lire la ligne
lig$ = ExtractAtom(buf$, vbCrLf)
While lig$ ""
' Lire le mot
mot$ = ExtractAtom(lig$, " ")
If mot$ "" Then

' Premiere lettre en majuscule ?
SetUc = False
If Left(mot$, 1) = UCase(Left(mot$, 1)) Then
Mid(mot$, 1, 1) = LCase(Mid(mot$, 1, 1))
SetUc = True
End If

' Remettre la ponctuation à la fin (a faire, gérer les smilets...)
If InStr(1, ".,;:!", Right(mot$, 1)) 0 Then
mot$ = Right$(mot$, 1) & Left(mot$, Len(mot$) - 1)
End If

' Inverser le mot
mot$ = StrReverse(mot$)

' Si majuscule, la remettre sur la première lettre....
If SetUc = True Then
Mid(mot$, 1, 1) = UCase(Mid(mot$, 1, 1))
End If

ret$ = ret$ & mot$ & " "
End If
Wend
ret$ = ret$ & vbCrLf
Loop While buf$ ""
Text2.Text = ret$

End Sub

Function ExtractAtom(s$, r$) As String

Dim X$

p& = InStr(1, s$, r$, vbTextCompare)
If p& 0 Then
X$ = Left(s$, p& - 1)
s$ = Mid(s$, p& + Len(r$))
Else
X$ = s$
s$ = ""
End If

ExtractAtom = X$

End Function

-------------------

icrem! nikmunP a issua éérc nu emmargorp ed ec erneg!!!!

Ej siavas euq ut siadnetta ic-iulec ceva ecneitapmi !!!

nieh! 'j dnetta iuq????

ej sialrap ud emmargorp, ruop erir ...

KO!!!!

Nonis, iouq ed fuen?

no elrap ed tra!!!!

Erutniepm erutplucs, amenic? Leuqel?

ed tuot!!!!

Ha, Ko! Te iouq ne ec tnemom?

ed 'l tra!!!

sneit, aç tiasiaf spmetgnol euq ej siava'n sap ésiilitu nom ruessitrevolgroz...
tiaté'c noisacco'l ed reifirév li'uq ehcram erocne.
ej suov elleppar el neil ruop xuec iuq en el tnessiannoc sap:

http://syrte.ath.cx/zorgl.zip

aç suov etivé ed suov ressac al etêt ruop eriudart al eugnalgroz snad sel 2 snes...