Nep Latijn

[thomasderoo]

Even voordat je de vraag snapt moet ik wat uitleggen:

Nep-latijn
1. neem een woord bijv. save
2. zet de eerste letter achter de laatste dus dan heb je "aves"
3. Voeg er "us"bij en je hebt nep-latijn voor save (avesus)

dit doe ik met de volgende code:

        Public Function Translate_To(ByVal word As String) As String
            word = Replace(word, " ", "")
            word += word.First
            word = Replace(word, "!", "")
            word = Replace(word, "@", "")
            word = Replace(word, "#", "")
            word = Replace(word, "$", "")
            word = Replace(word, "%", "")
            word = Replace(word, "^", "")
            word = Replace(word, "&", "")
            word = Replace(word, "*", "")
            word = Replace(word, "(", "")
            word = Replace(word, ")", "")
            word = Replace(word, "_", "")
            word = Replace(word, "+", "")
            word = Replace(word, "=", "")
            word = Replace(word, ".", "")
            word = Replace(word, ",", "")
            word = word.Remove(0, 1)
            word = word + "us"
            Return word.ToLower
        End Function

Nou wil ik die procedure omdraaien.
Dus us er af, laatste letter voorop, en je hebt weer het woord

ik heb dit als code

        Public Function Translate_From(ByVal word As String) As String
            word = Replace(word, word.Last, "")
            word = Replace(word, word.Last, "")
            word = word.Last + word
            word = Replace(word, word.Last, "")
            Return word.ToLower
        End Function

en dat geef "av"in plaats van "save"

 

[thomasderoo]

bedankt,

ik heb de oplossing al:

        Public Function Translate_From(ByVal word As String) As String
            word = word.Substring(0, word.Length - 2)
            word = word.Last + word
            word = word.Substring(0, word.Length - 1)
            Return word
        End Function

Dus deze vraag is opgelost!

 

[lazovicpsv]

Hoi, post je programma eens! Ik wil hem wel eens zien!