中国DOS联盟

For example, if I enter "af", it displays:

a
b
c
d
e
f

Each letter occupies one line. I wonder if it can be achieved..

I think it should not work, unless characters can be converted into numbers to run, and then numbers are converted back to letters after running. This is the same principle as the post I previously posted about ASCII code and conversion between letters and numbers.

@echo off

set str=a b c d e f g h i j k l m n o p q r s t u v w x y z

:begin

cls

set flag=0

set var=

set input=

set /p input=      请输入字母范围(如af)：

for %%i in (%str%) do call :pickup %%i



:end

pause

goto begin



:pickup

if /i "%1"=="%input:~0,1%" set flag=1

if /i "%1"=="%input:~-1%" set flag=2

if %flag% equ 1 echo %1

if %flag% equ 2 echo %1&goto end

goto :eof

The following is the translated content:

The demonstration code is as follows (no fault tolerance detection is done):

@echo off

set str=a b c d e f g h i j k l m n o p q r s t u v w x y z

:begin

cls

set flag=0

set var=

set input=

set /p input=      Please enter the letter range (such as af):

for %%i in (%str%) do call :pickup %%i



:end

pause

goto begin



:pickup

if /i "%1"=="%input:~0,1%" set flag=1

if /i "%1"=="%input:~-1%" set flag=2

if %flag% equ 1 echo %1

if %flag% equ 2 echo %1&goto end

goto :eof

@echo off 

setlocal enabledelayedexpansion



set str=a b c d e f g h i j k l m n o p q r s t u v w x y z

for %%i in (%str%) do set/a dec+=1 & set %%i=!dec! & set str!dec!=%%i

set en=

set /p en=请输入字母范围(如af)：

set/a num1=!%en:~0,1%!,num2=!%en:~-1%!

for /l %%i in (%num1%,1,%num2%) do echo !str%%i!



pause>nul

Let's play too^_^

@echo off 

setlocal enabledelayedexpansion



set str=a b c d e f g h i j k l m n o p q r s t u v w x y z

for %%i in (%str%) do set/a dec+=1 & set %%i=!dec! & set str!dec!=%%i

set en=

set /p en=Please enter the letter range (such as af):

set/a num1=!%en:~0,1%!,num2=!%en:~-1%!

for /l %%i in (%num1%,1,%num2%) do echo !str%%i!



pause>nul

@echo off 

setlocal enabledelayedexpansion



set str=a b c d e f g h i j k l m n o p q r s t u v w x y z

set en=

set /p en=请输入字母范围(如af)：

set str1=%en:~0,1%

set str2=%en:~-1%

for %%i in (%str%) do if %%i geq !str1! if %%i leq !str2! echo %%i 

pause>nul

There is another one that is easier to understand:

@echo off 

setlocal enabledelayedexpansion



set str=a b c d e f g h i j k l m n o p q r s t u v w x y z

set en=

set /p en=Please enter the letter range (such as af):

set str1=%en:~0,1%

set str2=%en:~-1%

for %%i in (%str%) do if %%i geq !str1! if %%i leq !str2! echo %%i 

pause>nul

Thank you, both.. ^_^

@echo off
:begin
set /p a="Old rules, hee hee :"
set str=a b c d e f g h i j k l m n o p q r s t u v w x y z
for %%i in (%str%) do echo %%i|findstr
goto:begin

@echo off

:begin

cls

set str=a b c d e f g h i j k l m n o p q r s t u v w x y z

set input=

set /p input=      请输入字母范围(如af)：

call set str=%%str:%input:~0,1%=-☆%input:~0,1%%%

call set str=%%str:%input:~-1%=%input:~-1%☆%%

for /f "tokens=2 delims=☆" %%i in ("%str%") do set str=%%i

for %%i in (%str%) do echo %%i

pause

goto begin

Then I'll come to another paragraph:

@echo off

:begin

cls

set str=a b c d e f g h i j k l m n o p q r s t u v w x y z

set input=

set /p input=      Please enter the letter range (such as af):

call set str=%%str:%input:~0,1%=-☆%input:~0,1%%%

call set str=%%str:%input:~-1%=%input:~-1%☆%%

for /f "tokens=2 delims=☆" %%i in ("%str%") do set str=%%i

for %%i in (%str%) do echo %%i

pause

goto begin

Simplify it further.

Last edited by namejm on 2007-1-9 at 08:35 PM ]

m="a;b;c;d;e;f;g;h;i;j;k;l;m;n;o;p;q;r;s;t;u;v;w;x;y;z"

s=split(m,";")

b=inputbox("请输入字母范围(如af):","系统提示")

l=0

for i=0 to 25

if s(i)=left(b,1) then

l=1

end if

if l=1 then

h=h&vbcrlf&s(i)

end if

if s(i)=right(b,1) then exit for

next

msgbox h

Join in the fun

m="a;b;c;d;e;f;g;h;i;j;k;l;m;n;o;p;q;r;s;t;u;v;w;x;y;z"

s=split(m,";")

b=inputbox("Please enter the letter range (e.g., af):","System Prompt")

l=0

for i=0 to 25

if s(i)=left(b,1) then

l=1

end if

if l=1 then

h=h&vbcrlf&s(i)

end if

if s(i)=right(b,1) then exit for

next

msgbox h

Originally posted by jmz573515 at 2007-1-10 10:38 PM:
Join in the fun

m="a;b;c;d;e;f;g;h;i;j;k;l;m;n;o;p;q;r;s;t;u;v;w;x;y;z"

s=split(m,";")

b=inputbox("Please enter the letter range (such as af):","System Prompt")

l= ... 


If it's VBS, there's no need to be so complicated! Just use a simple for loop to get it done

I also hope the friend on the 11th floor can give some guidance. I'm just a beginner in VBS and don't know much about it. Thanks!

Today I finally understood the code on the 5th floor of the boss.

Can the ASCII code be useful?

Used to process ASCII code?