前回の投稿の機能をグレードアップしたいので、投稿しました。
まず、やりたいことは
1、UnitSet○○
・・
・・
・・
と続く文字列の塊のUnitSet○○の部分だけを取り出す。
そしてその○○の数字が一番大きいものを取得する。
次にボタンを押したときには○○+1の形で
UnitSet○○
・・
・・
・・
という形にしたい。
前の投稿記事は、http://www.activebasic.com/forum/viewtopic.php?t=635
を見ていただければ良いです。
多くの方の返信が聞きたいです。
よろしくお願いします。
文字列と変数
Re: 文字列と変数
コード: 全て選択
#prompt
Dim s(3) As String
Dim n As Long, i As DWord
Dim max As Long
s(0) = "UnitSet30"
s(1) = "UnitSet666"
s(2) = "UnitSet9"
'最大値
for n=0 to 2
i = Val(Mid$(s(n), 8))
if i > max Then max = i
next
print max
'更新
for n=0 to 2
i = Val(Mid$(s(n), 8)) + 1
s(n) = "UnitSet" + Str$(i)
next