ab.com コミュニティ https://www.activebasic.com/forum/ |
|
文字列と変数 https://www.activebasic.com/forum/viewtopic.php?t=1058 |
ページ 1 / 1 |
作成者: | 雷電 [ 2006年5月21日(日) 19:44 ] |
記事の件名: | 文字列と変数 |
前回の投稿の機能をグレードアップしたいので、投稿しました。 まず、やりたいことは 1、UnitSet○○ ・・ ・・ ・・ と続く文字列の塊のUnitSet○○の部分だけを取り出す。 そしてその○○の数字が一番大きいものを取得する。 次にボタンを押したときには○○+1の形で UnitSet○○ ・・ ・・ ・・ という形にしたい。 前の投稿記事は、http://www.activebasic.com/forum/viewtopic.php?t=635 を見ていただければ良いです。 多くの方の返信が聞きたいです。 よろしくお願いします。 |
作成者: | HSABP [ 2017年10月29日(日) 20:58 ] |
記事の件名: | 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 |
ページ 1 / 1 | 全ての表示時間は UTC+09:00 です |
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |