Manipolazione di una stringa

[Abraxas606]

Buonasera ragazzi.

Senza che mi spacchi la testa
sapete come posso avndo in ingresso una stringa, inserirci un carattere ogni 2 lettere?

Esempio:
input --> rinoceronte
output--> ri,no,ce,ro,nt,e

Grazie

[Nunkij]

Ti serve la funzione mid() con la seguente sintassi:

mid(stringa,base, offset)

quindi

iLen=len(stringa)

if iLen MOD 2 =1 then
iLen=iLen-1

for i=0 to iLen

strnuova=mid(stringa,i,2)

i=i+1
next

ovviamente decidi dove mettere i pezzi di stringa, se in un array o in altre strutture dati!

[kalosjo]

Credo solo tramite una semplice funzioncina...

function inschar(str, pos, ch)
dim i
  if len(str)>pos then
    i=1
    while i<len(str)
      inschar=inschar & mid(str,i,pos) & ch
      i=i+pos
    wend
  end if
end function