ФорумРазработкаSEO → Судьба BAT в ваших руках, обоснуйте что это не последнее говно

Судьба BAT в ваших руках, обоснуйте что это не последнее говно

  • fgets

    Сообщения: ? Репутация: N Группа: Кто попало

    Spritz 10 января 2011 г. 12:20

    Во общем необходимо решить такую задачу

    1. открыть папку C:\scripttest
    2. вытащить список всех файлов
    3. переименовать их в *.log (изменить расширение на лог короче)

    варианты решения на разных языках:
    <?php
    $dir = &quot;C:\\scripttest\\&quot;;
    $handle = opendir($dir);
    while (false !== ($file = readdir($handle))) {
    if ($file !== &#39;.&#39; &amp;&amp; $file !== &#39;..&#39;) {
    rename($dir.$file, $dir.strtok($file, &#39;.&#39;).&#39;.log&#39;);
    }
    }
    closedir($handle);

    import os

    directory = &#39;C:\\scripttest\\&#39;;
    files = os.listdir(directory);

    for i in range(0, len(files)):
    os.rename(directory+files, directory+os.path.splitext(files)[0]+&#39;.log&#39;);

    [с#]using System;
    using System.IO;

    namespace zadacha
    {
    class Program
    {
    public static void Main(string[] args)
    {
    string[] files = Directory.GetFiles(@&quot;c:\scripttest&quot;, &quot;*&quot;);

    foreach (string file in files)
    {
    string newfilename = string.Format(&quot;{0}.log&quot;, Path.GetFileNameWithoutExtension(file));
    File.Move(file, @&quot;c:\scripttest\&quot;+newfilename);
    }
    }
    }
    }[/с#]

    но решить её нужно именно на бат, иначе бат говно а я проспорю

    вообщем вот что я накатал уже

    @echo off
    :var
    setlocal enableextensions enabledelayedexpansion

    :begin
    c: &amp;&amp; cd scripttest
    for /f &quot;tokens=*&quot; %%a in (&#39;dir /b *.*&#39;) do call :filefunction %%a

    :filefunction
    :: ———————–
    :: Rename *.* to *.log
    :: ———————–
    :: @param string %1 file
    :: @return string
    :: ———————–
    set ext=%1
    set ext=%ext:*.=%
    set name=%1
    call :strlen %ext%
    set /a length=%$returnvalue% + 1
    set result=%name:~0,-4%
    rem set name=%name:ext=log%
    :: БЛЯ ВОТ ТУТ ПО ИДЕЕ Я ДОЛЖЕН УЖЕ ПЕРЕИМЕНОВАТЬ, НО Я ДОЛЖЕН СОСТРЯПАТЬ ИМЯ КОНЕЧНОГО ФАЙЛА
    :: ИМЕЕТСЯ РАСШИРЕНИЕ КОНЕЧНОГО ФАЙЛА - log
    :: ИМЕЕТСЯ ПОЛНОЕ ИМЯ НАЧАЛЬНОГО ФАЙЛА %1 (допустим 1.txt)
    :: ИМЕЕТСЯ РАСШИРЕНИЕ НАЧАЛЬНОГО ФАЙЛА (допустим txt)
    :: ПЛАНИРОВАЛ ВЫЧЕСТЬ ДЛИНУ СТРОКИ С КОНЦА ИЗ ПОЛНОГО ИМЕНИ ЧТОБЫ ПОЛУЧИТЬ НОРМАЛЬНОЕ ИМЯ
    :: БЕЗ РАСШИРЕНИЯ, И ПОТОМ ЕГО СКОНКАТЕНИРОВАТЬ С РАСШИРЕНИЕМ log НО НИХУЯ НЕ ВЫХОДИТ
    :: ВООБЩЕМ Я ХУЙ
    :: ———————–
    exit /b 0

    :strlen
    :: ———————–
    :: Find String Length
    :: ———————–
    :: @param string %1
    :: @return integer
    :: ———————–
    Set $returnvalue=0&amp;Set $StringBuf=%~1
    If &quot;&quot;==&quot;%~1&quot; GoTo :EOF
    :strlenprocessor
    Set /A $returnvalue+=1
    Call Set $StringChr=%%$StringBuf:~%$returnvalue%%%
    If &quot;&quot;==&quot;%$StringChr%&quot; GOTO :EOF
    GoTo :strlenprocessor


    * лютобешеноплачет.jpg *
  • Frozzeg

    Сообщения: 5642 Репутация: N Группа: Джедаи

    Spritz 10 января 2011 г. 12:22, спустя 1 минуту 55 секунд

    похую мороз
    You can be anything you want to be. Just turn yourself into anything you think that you could ever be.
  • fgets

    Сообщения: ? Репутация: N Группа: Кто попало

    Spritz 10 января 2011 г. 12:23, спустя 41 секунду

    кстати у вас подсветка сломалась снова c#
  • Sinkler

    Сообщения: 9658 Репутация: N Группа: в ухо

    Spritz 10 января 2011 г. 12:24, спустя 51 секунду

    КАКОЕ НАХУЙ СЕО БЛЯДЬ?!
  • fgets

    Сообщения: ? Репутация: N Группа: Кто попало

    Spritz 10 января 2011 г. 12:25, спустя 1 минуту 4 секунды


    КАКОЕ НАХУЙ СЕО БЛЯДЬ?!


    А ХУЛИ ТАМ НАПИСАНО ОБЩИЕ ВОПРОСЫ БЛЯТЬ Я НАЗВАНИЕ ФОРУМА НЕ ВИДЕЛ!
  • Sinkler

    Сообщения: 9658 Репутация: N Группа: в ухо

    Spritz 10 января 2011 г. 12:27, спустя 1 минуту 47 секунд



    КАКОЕ НАХУЙ СЕО БЛЯДЬ?!


    А ХУЛИ ТАМ НАПИСАНО ОБЩИЕ ВОПРОСЫ БЛЯТЬ Я НАЗВАНИЕ ФОРУМА НЕ ВИДЕЛ!
    хуй-то свой видишь?
  • fgets

    Сообщения: ? Репутация: N Группа: Кто попало

    Spritz 10 января 2011 г. 12:27, спустя 54 секунды




    КАКОЕ НАХУЙ СЕО БЛЯДЬ?!


    А ХУЛИ ТАМ НАПИСАНО ОБЩИЕ ВОПРОСЫ БЛЯТЬ Я НАЗВАНИЕ ФОРУМА НЕ ВИДЕЛ!
    хуй-то свой видишь?


    да
  • Frozzeg

    Сообщения: 5642 Репутация: N Группа: Джедаи

    Spritz 10 января 2011 г. 12:28, спустя 39 секунд


    using System;

    class Program
    {
      prublic Main(string[] args)
      {
          Console.WriteLine(&quot;пиздежь&quot;);
      }
    }
    You can be anything you want to be. Just turn yourself into anything you think that you could ever be.
  • fgets

    Сообщения: ? Репутация: N Группа: Кто попало

    Spritz 10 января 2011 г. 12:31, спустя 3 минуты 2 секунды



    using System;

    class Program
    {
      prublic Main(string[] args)
      {
          Console.WriteLine(&quot;пиздежь&quot;);
      }
    }



    [с#]using System;
    using System.IO;

    namespace zadacha
    {
    class Program
    {
    public static void Main(string[] args)
    {
    string[] files = Directory.GetFiles(@&quot;c:\scripttest&quot;, &quot;*&quot;);

    foreach (string file in files)
    {
    string newfilename = string.Format(&quot;{0}.log&quot;, Path.GetFileNameWithoutExtension(file));
    File.Move(file, @&quot;c:\scripttest\&quot;+newfilename);
    }
    }
    }
    }[/с#]
  • Sinkler

    Сообщения: 9658 Репутация: N Группа: в ухо

    Spritz 10 января 2011 г. 12:55, спустя 24 минуты 16 секунд

    using System;

    class Program
    {
    prublic Main(string[] args)
    {
    Console.WriteLine(&quot;пиздежь&quot;);
    }
    }
  • Абырвалг

    Сообщения: 6477 Репутация: N Группа: Джедаи

    Spritz 10 января 2011 г. 13:59, спустя 1 час 3 минуты 57 секунд

    наверно только у джедаев сишарповская подсветка работает
  • phpdude

    Сообщения: 26617 Репутация: N Группа: в ухо

    Spritz 10 января 2011 г. 14:17, спустя 17 минут 36 секунд

    Абырвалг, уверен, что нет. парсер бб кодов не знает какую часть страницы он рендерит, не тупи
    Сапожник без сапог
  • Абырвалг

    Сообщения: 6477 Репутация: N Группа: Джедаи

    Spritz 10 января 2011 г. 14:45, спустя 28 минут 8 секунд

    я просто хотел петраснуть юморца
  • Frozzeg

    Сообщения: 5642 Репутация: N Группа: Джедаи

    Spritz 10 января 2011 г. 14:46, спустя 28 секунд

    using System;
    using System.IO;

    namespace zadacha
    {
    class Program
    {
    public static void Main(string[] args)
    {
    string[] files = Directory.GetFiles(@&quot;c:\scripttest&quot;, &quot;*&quot;);

    foreach (string file in files)
    {
    string newfilename = string.Format(&quot;{0}.log&quot;, Path.GetFileNameWithoutExtension(file));
    File.Move(file, @&quot;c:\scripttest\&quot; + newfilename);
    }
    }
    }
    }
    You can be anything you want to be. Just turn yourself into anything you think that you could ever be.
  • Frozzeg

    Сообщения: 5642 Репутация: N Группа: Джедаи

    Spritz 10 января 2011 г. 14:56, спустя 10 минут 3 секунды

    обосрались профи? :D
    You can be anything you want to be. Just turn yourself into anything you think that you could ever be.

Пожалуйста, авторизуйтесь, чтобы написать комментарий!