| 2024/06/20(Thu) 08:41:01 編集(投稿者)
> 桐Ｖ９ 2012
>
> 文字列の中に、４桁以上の数字が含まれているか検査したいと考えていますが、
> うまい方法が見つかりません。
>
> #IS数字(str,sw)のヘルプには、「文字列の中に数字が含まれているか検査します」とはありますが、
> 含まれている数字の桁数の指定をする事が出来ません。
>
> （例）
> [４桁以上の数字有無]、[文字列]
> 〇 東京11大阪543北海道九州1234神奈川千葉789埼玉
> × 福岡fr76佐賀333熊本963鹿児島
> 〇 青森D-432岩手秋田117258369abc新潟ｐｐｋｋ
> ・・・
この問題は関数で一発解決とはいかないですよ。
何故ならば、連続するか否かと文字数をテストしなければならないからです。
こういう繰り返し操作が必要な問題は関数では出来ませんよ。
添付ファイルをアップしますのでご参考にしてください。
なお、数日を目途に添付ファイルは削除しますので、ダウンロードはお早めに願います。
◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇
名札 メイン
＊
手続き定義開始 cmd連続する４桁の数字を絞り込みClick( )
変数宣言 自動，文字列｛ &title = "cmd連続する４桁の数字を絞り込みClick( )", &msg ｝
変数宣言 自動，文字列｛ &string, &判定 ｝
解除 ＊
置換 [４桁以上の数字有無] = #u
ジャンプ 行番号 =先頭
┌繰り返し ( .not #eof )
│
│ &string = [文字列]
│ 手続き実行 prc判定( &string, &判定 )
│
│ 行訂正 [４桁以上の数字有無] = &判定
│
│ ジャンプ 行番号 =次行
└繰り返し終了
手続き定義終了
手続き定義開始 prc判定( 文字列 &string, 参照 文字列 &判定 )
変数宣言 自動，文字列｛ &title = "prc判定( )", &msg ｝
変数宣言 自動，文字列｛ &chr ｝
変数宣言 自動，整数 ｛ &length ｝
変数宣言 自動，整数 ｛ &total ｝
変数宣言 自動，整数 ｛ &i, &loop, &step = 1 ｝
&total = 0
&判定 = "×"
&length = #文字数( &string )
&loop = &length
┌繰り返し &i = 1, &loop, &step
│
│ &chr = #sstr( &string, &i, 1 )
│
│┌if ( #is数字( &chr, 1 ) )
││ &total = &total + 1
││
││┌if ( &total = 4 )
│││
│││ &判定 = "〇"
│││ トレース出力 _&chr, " ", _#is数字( &chr, 1 ), " ", _&total, " ", _&string
←┼┼─繰り返し中止
││└end
│├else
││ &total = 0
│└end
│ トレース出力 _&chr, " ", _#is数字( &chr, 1 ), " ", _&total, " ", _&string
│
└繰り返し終了
手続き定義終了
■トレース結果
:&chr : 東 #is数字( &chr, 1 ) : 0 &total : 0 &string : 東京11大阪543北海道九州1234神奈川千葉789埼玉
:&chr : 京 #is数字( &chr, 1 ) : 0 &total : 0 &string : 東京11大阪543北海道九州1234神奈川千葉789埼玉
:&chr : 1 #is数字( &chr, 1 ) : 1 &total : 1 &string : 東京11大阪543北海道九州1234神奈川千葉789埼玉
:&chr : 1 #is数字( &chr, 1 ) : 1 &total : 2 &string : 東京11大阪543北海道九州1234神奈川千葉789埼玉
:&chr : 大 #is数字( &chr, 1 ) : 0 &total : 0 &string : 東京11大阪543北海道九州1234神奈川千葉789埼玉
:&chr : 阪 #is数字( &chr, 1 ) : 0 &total : 0 &string : 東京11大阪543北海道九州1234神奈川千葉789埼玉
:&chr : 5 #is数字( &chr, 1 ) : 1 &total : 1 &string : 東京11大阪543北海道九州1234神奈川千葉789埼玉
:&chr : 4 #is数字( &chr, 1 ) : 1 &total : 2 &string : 東京11大阪543北海道九州1234神奈川千葉789埼玉
:&chr : 3 #is数字( &chr, 1 ) : 1 &total : 3 &string : 東京11大阪543北海道九州1234神奈川千葉789埼玉
:&chr : 北 #is数字( &chr, 1 ) : 0 &total : 0 &string : 東京11大阪543北海道九州1234神奈川千葉789埼玉
:&chr : 海 #is数字( &chr, 1 ) : 0 &total : 0 &string : 東京11大阪543北海道九州1234神奈川千葉789埼玉
:&chr : 道 #is数字( &chr, 1 ) : 0 &total : 0 &string : 東京11大阪543北海道九州1234神奈川千葉789埼玉
:&chr : 九 #is数字( &chr, 1 ) : 0 &total : 0 &string : 東京11大阪543北海道九州1234神奈川千葉789埼玉
:&chr : 州 #is数字( &chr, 1 ) : 0 &total : 0 &string : 東京11大阪543北海道九州1234神奈川千葉789埼玉
:&chr : 1 #is数字( &chr, 1 ) : 1 &total : 1 &string : 東京11大阪543北海道九州1234神奈川千葉789埼玉
:&chr : 2 #is数字( &chr, 1 ) : 1 &total : 2 &string : 東京11大阪543北海道九州1234神奈川千葉789埼玉
:&chr : 3 #is数字( &chr, 1 ) : 1 &total : 3 &string : 東京11大阪543北海道九州1234神奈川千葉789埼玉
:&chr : 4 #is数字( &chr, 1 ) : 1 &total : 4 &string : 東京11大阪543北海道九州1234神奈川千葉789埼玉
:&chr : 福 #is数字( &chr, 1 ) : 0 &total : 0 &string : 福岡fr76佐賀333熊本963鹿児島
:&chr : 岡 #is数字( &chr, 1 ) : 0 &total : 0 &string : 福岡fr76佐賀333熊本963鹿児島
:&chr : f #is数字( &chr, 1 ) : 0 &total : 0 &string : 福岡fr76佐賀333熊本963鹿児島
:&chr : r #is数字( &chr, 1 ) : 0 &total : 0 &string : 福岡fr76佐賀333熊本963鹿児島
:&chr : 7 #is数字( &chr, 1 ) : 1 &total : 1 &string : 福岡fr76佐賀333熊本963鹿児島
:&chr : 6 #is数字( &chr, 1 ) : 1 &total : 2 &string : 福岡fr76佐賀333熊本963鹿児島
:&chr : 佐 #is数字( &chr, 1 ) : 0 &total : 0 &string : 福岡fr76佐賀333熊本963鹿児島
:&chr : 賀 #is数字( &chr, 1 ) : 0 &total : 0 &string : 福岡fr76佐賀333熊本963鹿児島
:&chr : 3 #is数字( &chr, 1 ) : 1 &total : 1 &string : 福岡fr76佐賀333熊本963鹿児島
:&chr : 3 #is数字( &chr, 1 ) : 1 &total : 2 &string : 福岡fr76佐賀333熊本963鹿児島
:&chr : 3 #is数字( &chr, 1 ) : 1 &total : 3 &string : 福岡fr76佐賀333熊本963鹿児島
:&chr : 熊 #is数字( &chr, 1 ) : 0 &total : 0 &string : 福岡fr76佐賀333熊本963鹿児島
:&chr : 本 #is数字( &chr, 1 ) : 0 &total : 0 &string : 福岡fr76佐賀333熊本963鹿児島
:&chr : 9 #is数字( &chr, 1 ) : 1 &total : 1 &string : 福岡fr76佐賀333熊本963鹿児島
:&chr : 6 #is数字( &chr, 1 ) : 1 &total : 2 &string : 福岡fr76佐賀333熊本963鹿児島
:&chr : 3 #is数字( &chr, 1 ) : 1 &total : 3 &string : 福岡fr76佐賀333熊本963鹿児島
:&chr : 鹿 #is数字( &chr, 1 ) : 0 &total : 0 &string : 福岡fr76佐賀333熊本963鹿児島
:&chr : 児 #is数字( &chr, 1 ) : 0 &total : 0 &string : 福岡fr76佐賀333熊本963鹿児島
:&chr : 島 #is数字( &chr, 1 ) : 0 &total : 0 &string : 福岡fr76佐賀333熊本963鹿児島
:&chr : 青 #is数字( &chr, 1 ) : 0 &total : 0 &string : 青森D-432岩手秋田117258369abc新潟ｐｐｋｋ
:&chr : 森 #is数字( &chr, 1 ) : 0 &total : 0 &string : 青森D-432岩手秋田117258369abc新潟ｐｐｋｋ
:&chr : D #is数字( &chr, 1 ) : 0 &total : 0 &string : 青森D-432岩手秋田117258369abc新潟ｐｐｋｋ
:&chr : - #is数字( &chr, 1 ) : 0 &total : 0 &string : 青森D-432岩手秋田117258369abc新潟ｐｐｋｋ
:&chr : 4 #is数字( &chr, 1 ) : 1 &total : 1 &string : 青森D-432岩手秋田117258369abc新潟ｐｐｋｋ
:&chr : 3 #is数字( &chr, 1 ) : 1 &total : 2 &string : 青森D-432岩手秋田117258369abc新潟ｐｐｋｋ
:&chr : 2 #is数字( &chr, 1 ) : 1 &total : 3 &string : 青森D-432岩手秋田117258369abc新潟ｐｐｋｋ
:&chr : 岩 #is数字( &chr, 1 ) : 0 &total : 0 &string : 青森D-432岩手秋田117258369abc新潟ｐｐｋｋ
:&chr : 手 #is数字( &chr, 1 ) : 0 &total : 0 &string : 青森D-432岩手秋田117258369abc新潟ｐｐｋｋ
:&chr : 秋 #is数字( &chr, 1 ) : 0 &total : 0 &string : 青森D-432岩手秋田117258369abc新潟ｐｐｋｋ
:&chr : 田 #is数字( &chr, 1 ) : 0 &total : 0 &string : 青森D-432岩手秋田117258369abc新潟ｐｐｋｋ
:&chr : 1 #is数字( &chr, 1 ) : 1 &total : 1 &string : 青森D-432岩手秋田117258369abc新潟ｐｐｋｋ
:&chr : 1 #is数字( &chr, 1 ) : 1 &total : 2 &string : 青森D-432岩手秋田117258369abc新潟ｐｐｋｋ
:&chr : 7 #is数字( &chr, 1 ) : 1 &total : 3 &string : 青森D-432岩手秋田117258369abc新潟ｐｐｋｋ
:&chr : 2 #is数字( &chr, 1 ) : 1 &total : 4 &string : 青森D-432岩手秋田117258369abc新潟ｐｐｋｋ
|
このスレッドをツリーで一括表示