Skriti podniz v nizu

[missy]

Pozdravljeni,

Imam naslednjo nalogo, ki je nikakor ne morem rešiti zato bi vas prosila če mi napišete kodo!

In sicer naloga je sledeča:
Sestavite funkcijo, ki poišče vse skrite podnize v nizu. Skriti nizi so tisti nizi, ki jih dobimo tako, da iz niza jemljemo vsako drugo ali vsako tretjo, četrto ... črko. Če jemljemo, denimo, vsako tretjo črko, lahko začnemo pri prevm, drugem ali tretjem znaku besede. Primer: Če funkcijo pokličemo z argumentom "Fakulteta", mora kot rezultat vrniti niz

"Fklea autt Fue alt kta Fla at ke ut"

Več kot prva dva člena ne zanm dobiti!

Koda: Izberi vse

Function podniz(x As String) As String
m = 1
For j = 1 To 2
    For i = m To Len(x) Step 2
        n = Mid(x, i, 1)
        rez = rez & n
    Next
rez = rez & " "
m = m + 1
Next

MsgBox rez
End Function

Prosila bi vas za napisano kodo!

Hvala in lep dan, missy.

[admin]

Saj ste bili kar blizu:

Koda: Izberi vse

Function podniz(x As String) As String
For j = 2 To Len(x) / 2
    For k = 1 To j
        For i = k To Len(x) Step j
            n = Mid(x, i, 1)
            rez = rez & n
        Next
        rez = rez & " "
    Next
    rez = rez & " "
Next

Debug.Print rez
End Function

Manjkala vam je še ena notranja zanka. Samo kodo sem zato spremenil minimalno, da je tembolj podobna vaši...