forum.dsmarty.com

Tja, kan het ook niet helpen dat het mijn beroep is, het leverd geld op dus .

Jha hoor, niemand die eens zijn verwondering komt uitspreken voor floppy zijn vb krachten, vergeet niet de fork is zeer strong met hem!

De heren hebben overduidelijk niets te doen hier

We zijn aan ut werk verdorie!

... we werken aan... uh.... Phpbboards!
>_>
<_<

Echt waar!

Uhm collegea, als jij hier bent, waar is onze systeembeheerder dan?

EMS2CREW wrote:Uhm collegea, als jij hier bent, waar is onze systeembeheerder dan?

Je hebt er wel gemengde gevoelens over.

EMS2CREW wrote:

Code: Select all

Option Explicit
Public Function Encode(strInvoer As String) As String
    '
    '   Tog een beetje opgemaakt :).
    Dim a               As Long
    Dim b               As Long
    Dim c               As Long
    Dim lngRN           As Long ' Rondom nummer
    Dim lngLI           As Long ' Len Invoer
    '
    Dim strUitvoer      As String
    Dim strWoord        As String
    Dim tmpInvoer       As String
    '
    strInvoer = strInvoer & Chr$(32)
    lngLI = Len(strInvoer)
    c = 1
    '
    For a = 1 To lngLI
        '
        strUitvoer = vbNullString
        tmpInvoer = Mid$(strInvoer, a, 1)
        '
        If InStr(tmpInvoer, Chr$(32)) > 0 Or _
           InStr(tmpInvoer, vbCrLf) > 0 Then
           
            '
            strWoord = Mid$(strInvoer, c, a - c)
            '
            If Len(strWoord) > 2 Then
                '
                strUitvoer = Left$(strWoord, 1)
                '
                ReDim gehad(Len(strWoord))
                '
                '
                For b = 2 To Len(strWoord) - 1
                    '
                    lngRN = Int(Rnd(1) * (Len(strWoord) - 2)) + 2
                    '
                    Do While gehad(lngRN) = 1
                        '
                        lngRN = Int(Rnd(1) * (Len(strWoord) - 2)) + 2
                        '
                    Loop
                    '
                    gehad(lngRN) = 1
                    '
                    strUitvoer = strUitvoer + Mid$(strWoord, lngRN, 1)
                    '
                Next b
                '
                strUitvoer = strUitvoer + Right$(strWoord, 1)
                '
            Else
                '
                strUitvoer = strWoord
                '
            End If
            '
            Encode = Encode & strUitvoer & Chr$(32)
            c = a + 1
            '
        End If
        '
    Next a
    '
End Function

Het kan ook gewoon makkelijk:
http://www.zeepost.nl/~janjaap/text.php

Heb geen moeite genomen naar leestekens te kijken...

sljeutetlh sotnrt monloegn dit is wel meialkkjk maar om de hlee tijd zo te llelun is ook erg vmoeeirned dnek ik zo

alleen juh scriptjuh heeft moeite met de : die filtert ie eruit

ja, dat zei ik al