12/10/30 21:02:35.31 mdXGhH2u0
>>72
こんなのじゃ駄目なのか？
str = "ABCDEFw564986154GHIJK"
print wns(str)
FUNCTION wns(str)
dim i = 1
REPEAT
ws = POS("w",str,i)
if ws > 0
ws2 = COPY(str,ws+1,8)
ifb CHKNUM(ws2) = true
RESULT = "w"+ws2
EXIT
endif
endif
i=i+1
UNTIL ws = 0
RESULT = 0
fend