批处理之家 » BAT求助&讨论 » 前不久摸鱼时写了简单的批处理字符长度计算器

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 1

帖子: 27
积分: 48
技术: 0
捐助: 0
注册时间: 2022-2-15

1楼 跳转到 » 正序看帖

字体大小: tT

发表于 2022-9-18 14:10 | 只看该作者

[文本处理] 前不久摸鱼时写了简单的批处理字符长度计算器

@echo off
setlocal enabledelayedexpansion
title by TAT v1.0
set /p str=
set /A len=0
for /L %%i in (0,0,0) do (
	set /A len=!len!+1
echo !str!	!str:~-1!
	if /I !str! EQU !str:~-1! (
			echo 此字符串长度为len=!len!
			pause>nul & exit
			) 
	set str=!str:~-0,-1!
)

rem 已知bug如下：
rem 1.直接不输入回车会出值。
rem 2.0开头的话会出错
rem 3.汉字按一个长度算，程序算出的其实是字符个数。
rem 4.cmd单次输入字符最多1021个。。
复制代码

Rank: 7 Rank: 7 Rank: 7

帖子: 2852
积分: 4177
技术: 431
捐助: 0
注册时间: 2016-2-20

5楼

发表于 2022-9-19 10:39 | 只看该作者

由aloha20200628提供分享。
http://bbs.bathome.net/viewthrea ... p;extra=&page=3

Rank: 5 Rank: 5

帖子: 601
积分: 1128
技术: 166
捐助: 0
注册时间: 2022-6-20

4楼

发表于 2022-9-19 10:26 | 只看该作者

回复 2# TAT

plp626大神已给出很好的答案
http://www.bathome.net/redirect. ... 4946&ptid=11799

Rank: 12

帖子: 14935
积分: 46142
技术: 857
捐助: 745
注册时间: 2008-6-9

3楼

发表于 2022-9-19 09:32 | 只看该作者

回复 1# TAT

解决第一个问题：

@echo off
setlocal enabledelayedexpansion
:GetInput
set "str="
set /p "str=请输入字符串："
if "x!str!" equ "x" (
    goto :GetInput
)
set "len=0"
for /l %%i in (0,0,0) do (
    set /a len=!len!+1
    echo !str!	!str:~-1!
    if /i "!str!" equ "!str:~-1!" (
        echo 此字符串长度为len=!len!
        pause
        exit
    )
    set "str=!str:~-0,-1!"
)
复制代码

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

Rank: 1

帖子: 27
积分: 48
技术: 0
捐助: 0
注册时间: 2022-2-15

2楼

发表于 2022-9-18 14:11 | 只看该作者

后面注释里是几个已知BUG