VPF::Вырезать часть строки в bat - Форум программистов

newbie2009

Дата 7.7.2013, 17:39 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 161
Регистрация: 8.2.2009

Репутация: нет
Всего: нет

Добрый день.

Имею следующий код. Почему и как оно не хочет адекватно обрезать строку str?

Код


@Echo Off
Set $I=1& For %%i In (%*) Do Set $P=%%i& Call :Dilplay
Exit
:Dilplay
    call :len %$P% len
    set /a len=len-4   
        echo %len%
    set str=%$P:~0,len%
    echo %str%
  rem del %$P%
  Set /a $I=%$I%+1
GoTo :EOF

rem ----------------------------------------------------------------------------------
rem    function:        len
rem    param:        string as string
rem    return value:    length string as integer 
rem ----------------------------------------------------------------------------------
:len (string)
set opt=%~1
set /a n=0
:loop_len
if not "%opt%"=="" (
    set opt=%opt:~1%
    set /a n=%n% + 1
    goto loop_len
)
endlocal & set /a %2=%n%
exit /b 0
rem ----------------------------------------------------------------------------------

01MDM

Дата 12.7.2013, 06:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 273
Регистрация: 10.5.2008
Где: Default City

Репутация: 29
Всего: 29

newbie2009, извини, но в твой код не вникал, там полный бред, не обижайся:

Код


@echo off
setlocal enabledelayedexpansion

set "string=%*"

:: Так можно определить длину строки %string%

set "s=%string%"

:len
set "s=%s:~0,-1%" && set /a len+=1
if defined s goto:len

echo "%string%" is %len% simbols

:: Так можно обрезать первые четыре символа

echo "%string:~4%"

:: Последние четыре

echo "%string:~0,-4%"

:: Средние четыре с позиции 4

echo "%string:~0,3%%string:~7%"

:: если для "обрезки" нужна переменная, то обратите внимание на инструкцию "setlocal enabledelayedexpansion"

set "num1=3"
set "num2=4"

:: оставляем четыре символа с четвертой позиции

echo "!string:~%num1%,%num2%!"

Это сообщение отредактировал(а) 01MDM - 12.7.2013, 06:49

--------------------

Вопросы в личке останутся без ответов.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Windows \| Следующая тема »