Results 1 to 10 of 10

Thread: RQ:

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Banned
    Join Date: Mar:2008
    Location: ( ͡ ͜ʖ ͡)
    Posts: 10,614

    RQ:

    . , . : 0001_ , 0002_ .
    :
    01356_crepuscule.jpg
    01356_crepuscule_2560x1600.jpg
    01356_crepuscule_1920x1200.jpg
    . 1356, , . , ?
    .

  2. #2
    Registered User
    Join Date: Oct:2003
    Location:
    Posts: 4,317
    . . . . :
    00001
    00002
    00003
    .....
    01356
    ...
    01480
    .
    , . , , . , .

    for /f %i in (< >) do md %i
    . , . , %i , .

    for /f %i in (< >) do move %i* %i
    . .

  3. #3
    Banned
    Join Date: Mar:2008
    Location: ( ͡ ͜ʖ ͡)
    Posts: 10,614
    Quote Originally Posted by bsb View Post
    . . . . :
    00001
    00002
    00003
    .....
    01356
    ...
    01480
    .
    , . , , . , .

    for /f %i in (< >) do md %i
    . , . , %i , .

    for /f %i in (< >) do move %i* %i
    . .
    !

  4. #4
    Alis volat propriis Serendipity's Avatar
    Join Date: Jul:2007
    Location: Bulgaria
    Posts: 2,216
    txt FolderView.
    Time is too slow for those who wait, too swift for those who fear, too long for those who grieve, too short for those who rejoice, but for those who love, time is eternity.

  5. #5
    Registered User tedych's Avatar
    Join Date: Nov:2003
    Location:
    Posts: 17,654
    Quote Originally Posted by Serendipity View Post
    txt FolderView.
    :
    dir /b /a-d > myfiles.txt

    for ,
    @bsb . , , ,

  6. #6
    Banned
    Join Date: Mar:2008
    Location: ( ͡ ͜ʖ ͡)
    Posts: 10,614
    excel
    =1+1 , 1 . custom, type 00000, .

  7. #7
    philosophus duratea icaci's Avatar
    Join Date: Oct:2006
    Location: Aachen
    Posts: 2,698
    - Windows Scripting Host:
    1) Notepad :
    Code:
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set thisFolder = fso.GetFolder(".")
    
    Dim tokens, newDirName
    
    For Each f in thisFolder.Files
      tokens = Split(f.Name, "_")
      If UBound(tokens) > 0 Then
        newDirName = tokens(0)
        If Not fso.FolderExists(newDirName) Then
          fso.CreateFolder(newDirName)
        End If
        f.Move(thisFolder.Path & "\" & newDirName & "\")
      End If
    Next
    2) movethem.vbs
    3) movethem.vbs .
    4) !

    , , , , ( ) . , , .

    .. , , VBScript
    Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others

  8. #8
    Banned
    Join Date: Mar:2008
    Location: ( ͡ ͜ʖ ͡)
    Posts: 10,614
    Quote Originally Posted by icaci View Post
    - Windows Scripting Host:
    1) Notepad :
    Code:
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set thisFolder = fso.GetFolder(".")
    
    Dim tokens, newDirName
    
    For Each f in thisFolder.Files
      tokens = Split(f.Name, "_")
      If UBound(tokens) > 0 Then
        newDirName = tokens(0)
        If Not fso.FolderExists(newDirName) Then
          fso.CreateFolder(newDirName)
        End If
        f.Move(thisFolder.Path & "\" & newDirName & "\")
      End If
    Next
    2) movethem.vbs
    3) movethem.vbs .
    4) !

    , , , , ( ) . , , .

    .. , , VBScript
    , -
    2 40000 ,

  9. #9
    Registered User
    Join Date: Oct:2003
    Location:
    Posts: 4,317
    Quote Originally Posted by icaci View Post
    - Windows Scripting Host:
    .........
    for, delimiters, .

    dir *.* /b > list.dat
    for /f "delims=_" %i in (list.dat) do md %i & move %i_* %i
    , .
    , , - - , .

  10. #10
    philosophus duratea icaci's Avatar
    Join Date: Oct:2006
    Location: Aachen
    Posts: 2,698
    Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |