750459 ランダム
 HOME | DIARY | PROFILE 【フォローする】 【ログイン】

さすらいのプログラマ

PR

Keyword Search

▼キーワード検索

Profile


xyzzy_user

Calendar

Comments

hello@ Re:HFONTからLOGFONT(06/02) タイプミス NG) "LOGONT lfont;&quo…
scripting guy@ ゼロサプレス、ゼロ桁の切り出し、文字列の長さについて ゼロサプレス、ゼロ桁の切り出し、文字列…
scripting guy@ ゼロサプレス、ゼロ桁の切り出し、文字列の長さについて ゼロサプレス、ゼロ桁の切り出し、文字列…
scripting guy@ ゼロサプレス、ゼロ桁の切り出し、文字列の長さについて ゼロサプレス、ゼロ桁の切り出し、文字列…
junche4@ Re:VBScriptのRegExp(その2)(04/13) where is vbscript.h?

Freepage List

2011/06/07
XML
カテゴリ:シェル
バッチで文字列の長さを算出処理を書いてみた。

CALL :LEN %TARGET%

とかで呼び出すと、%LENTGTH%に長さがセットされる。


:LEN
SETLOCAL
SET SRC=%1
SET LEN=0
:LEN_LOOP
IF "%SRC%"=="" GOTO LEN_EXIT
SET /A LEN=%LEN% + 1
SET SRC=%SRC:~1%
GOTO :LEN_LOOP
:LEN_EXIT
(ENDLOCAL &^
SET LENGTH=%LEN%&^
EXIT /B)







Last updated  2011/06/07 12:54:55 PM
コメント(2) | コメントを書く
[シェル] カテゴリの最新記事

■コメント

お名前
タイトル
メッセージ
画像認証
別の画像を表示
上の画像で表示されている数字を入力して下さい。


利用規約に同意してコメントを
※コメントに関するよくある質問は、こちらをご確認ください。


ゼロサプレス、ゼロ桁の切り出し、文字列の長さについて   scripting guy さん
ゼロサプレス、ゼロ桁の切り出し、文字列の長さについては、これでどうでしょう。

@echo off
setlocal enabledelayedexpansion
set _S=000102030
if not "%~1"=="" set _S=%~1
set _D=
set _Z=
set _L=
for /L %%L in (0,1,20) do (
set _L=!_S:~%%L!
if "!_D!"=="" if not "!_L:~0,1!"=="0" set /A _D=!_L!
if "!_L!"=="" set /A _L=%%L& call set _Z=%%_S:!_D!=%%& goto :L
)
:L
echo "!_S!" # String
echo "!_D!" # Decimal No.
echo "!_Z!" # Zero digits
echo "!_L!" # Length
endlocal
(2016/06/10 08:54:39 PM)

ゼロサプレス、ゼロ桁の切り出し、文字列の長さについて   scripting guy さん
ゼロサプレス、ゼロ桁の切り出し、文字列の長さについては、これでどうでしょう。

- 入力 String が "0" の場合の問題を改善しました。
- 環境変数の使い方を、応用しやすく効率的な方法に改善しました。

@echo off
setlocal enabledelayedexpansion
set _S=000102030
if not "%~1"=="" set _S=%~1
set _D=!_S!
set _Z=!_S!
set /A _L=0
for /L %%L in (0,1,20) do (
if not "!_D!"=="" (
if !_L! EQU 0 if not "!_D:~0,1!"=="0" set /A _L=!_D!
set _D=!_D:~1!
) else (
set /A _D=!_L!
call set _Z=%%_Z:!_D!=%%
set /A _L=%%L
goto :L
)
)
:L
echo "!_S!" # String
echo "!_D!" # Decimal No.
echo "!_Z!" # Zero digits
echo "!_L!" # Length
endlocal
(2016/06/11 03:22:11 PM)


Copyright (c) 1997-2019 Rakuten, Inc. All Rights Reserved.