| たゆーさんこんにちはコマンド名が違いますよ
> 桐10でも 4,000文字しか取得出来ないようです
> ◯試したのは、「win7 桐10 ビルド#2176」です
>
> ◯テスト一括処理は
> クリップボード 取得,&STR,終了状態=&実行リターン,制御文字変換=しない
> 確認 "文字数＝"+#文字列(#文字数(&STR))+" 終了状態＝"+#文字列(&実行リターン)
クリップボードを取得でなくクリップボードに設定です
以下の一括で確認の前にメモ帳に貼り付けると確認できます。
var 固有,str {&clip},共通, str {&クリップ},long { &Lct,&Lmax =7999}
&clip = "あ", &STR = "い",&クリップ="う"
繰り返し &Lct =1 , &Lmax ,1
条件 (&Lct =<4000) &clip = &clip + "あ" , &STR = &STR +"い",&クリップ=&クリップ + "う"
条件 ((&Lct =<5000) .and (&Lct >4000)) &clip = &clip + "か" , &STR = &STR +"き",&クリップ=&クリップ + "く"
条件 ((&Lct =<6000) .and (&Lct >5000)) &clip = &clip + "さ" , &STR = &STR +"し",&クリップ=&クリップ + "す"
条件 ((&Lct =<7000) .and (&Lct >6000)) &clip = &clip + "た" , &STR = &STR +"ち",&クリップ=&クリップ + "つ"
条件 ((&Lct =<8000) .and (&Lct >7000)) &clip = &clip + "な" , &STR = &STR +"に",&クリップ=&クリップ + "ぬ"
繰り返し終了
if (1)
クリップボード 設定,&clip, 終了状態=&Lct, 制御文字変換=しない
確認 "固有文字数は " + #STR(#L(&clip)),&秒
end
if (1)
クリップボード 設定,&クリップ, 終了状態=&Lct, 制御文字変換=しない
確認 "共通文字数は " + #STR(#L(&クリップ)),&秒
end
if (1)
クリップボード 設定,&STR, 終了状態=&Lct, 制御文字変換=しない
確認 "組込み文字数は " + #STR(#L(&STR)),&秒
end
|
