ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2018年11月21日(水) 01:36

All times are UTC+09:00




トピックに返信する
ユーザー名:
件名:
メッセージ本文:
こちらにメッセージをご入力ください。60000 字まで入力できます。 

フォントサイズ:
フォントカラー
オプション:
BBCode: ON
[img]: ON
[flash]: OFF
[url]: ON
スマイリー: OFF
BBCode を無効にする
URL を自動的にパースしない
クイズ
お手数ですがカタカナで「エービー」と4文字を入力してください。:
答えを正確にご入力ください。答えられるかどうかでスパムボットか否かを判定します。
   

トピックのレビュー - 文字列と変数
作成者 メッセージ
  記事の件名:  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
投稿記事 Posted: 2017年10月29日(日) 20:58
  記事の件名:  文字列と変数  引用付きで返信する
前回の投稿の機能をグレードアップしたいので、投稿しました。

まず、やりたいことは

1、UnitSet○○
・・
・・
・・
と続く文字列の塊のUnitSet○○の部分だけを取り出す。
そしてその○○の数字が一番大きいものを取得する。
次にボタンを押したときには○○+1の形で
UnitSet○○
・・
・・
・・
という形にしたい。

前の投稿記事は、http://www.activebasic.com/forum/viewtopic.php?t=635
を見ていただければ良いです。
多くの方の返信が聞きたいです。
よろしくお願いします。
投稿記事 Posted: 2006年5月21日(日) 19:44

All times are UTC+09:00


ページ移動:  
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by KONISHI Yohsuke