PureBasic Forums - English

E' stato aperto un forum per PureBasic in lingua italiana.

Usatelo...

link : http://www.rominfo.it/phpBB2/index.php

Grazie...

hello, everyone

can you help me to optimize the procedure below?

Procedure.s RemoveChar(String1.s, String2.s)
Protected nCiclo.b, nLen2.b, cResult.s

nLen2 = Len(String2)
cResult = String1

For nCiclo = 1 To nLen2
cResult = RemoveString(cResult, Mid(String2, nCiclo, 1))
Next ...

Thanks freak for your improvement...

The procedure CharSort is :

Procedure CharSort(pVar, lNoDup)
Protected cSort.s, nCiclo.b, nLenS.b

cSort = PeekS(pVar)
nLenS = Len(cSort)
Dim aSort.s(nLenS)
For nCiclo = 1 To nLenS
aSort(nCiclo) = Mid(cSort, nCiclo, 1)
Next

; sort array...
SortArray(aSort(), 0)

; passing result to ...

hello everone

I currently writing a programm for processing string, my problem is sorting a string, with len 30 char max, quickly.

thanks... 8O