Um das mal etwas "einfacher" zu gestalten

Wie wäre das äquivalent zu der folgenden Basic Lösung ?
a=3940
b=5630
x=200
y=5
arr=""


looproutine
for i as integer = y to x step y
arr=arr+"s"+str(a)
a=a+y
next i
if a < b + y then
arr=""
goto looproutine
else
alldone

alldone
exit

Hallo zusammen,

ich stehe vor dem Problem das ich mehrere Dateien mit numerisch aufsteigenden Dateinamen in wiederum mehrere Dateien , auch mit numerisch aufsteigenen Dateinamen zusammenfügen möchte.

Die quelldateien haben z.b. die Namen :
s 1 m 3940
s 1 m 3945
s 1 m 3950
etc bis
s 1 m 5060

nun ...