Rename File using ABAP

Hi,
Can any one help me how to rename file using ABAP programme.
Thanks,
ABDUR

use these function module
RS_RENAME_PROGRAM Rename Program With All Dependent Objects
RS_RENAME_PROGRAM_INCLUDE Rename Include Progam Without Any Other Objects

Similar Messages

How to upload an excel file using ABAP.

Hi,
Can anyone please help me in understanding how to upload an excel file using ABAP.
Thanks!!

http://diocio.wordpress.com/2007/02/12/sap-upload-excel-document-into-internal-table/
check the link
TYPES: Begin of t_record,
name1 like itab-value,
name2 like itab-value,
age   like itab-value,
End of t_record.
DATA: it_record type standard table of t_record initial size 0,
wa_record type t_record.
DATA: gd_currentrow type i.
*Selection Screen Declaration
PARAMETER p_infile like rlgrap-filename.
*START OF SELECTION
call function ALSM_EXCEL_TO_INTERNAL_TABLE
exporting
filename                = p_infile
i_begin_col             = 1′
i_begin_row             = 2′ Do not require headings
i_end_col               = 14′
i_end_row               = 31′
tables
intern                  = itab
exceptions
inconsistent_parameters = 1
upload_ole              = 2
others                  = 3.
if sy-subrc <> 0.
message e010(zz) with text-001. Problem uploading Excel Spreadsheet
endif.
Sort table by rows and colums
sort itab by row col.
Get first row retrieved
read table itab index 1.
Set first row retrieved to current row
gd_currentrow = itab-row.
loop at itab.
Reset values for next row
if itab-row ne gd_currentrow.
append wa_record to it_record.
clear wa_record.
gd_currentrow = itab-row.
endif.
case itab-col.
when 0001′.                              First name
wa_record-name1 = itab-value.
when 0002′.                              Surname
wa_record-name2 = itab-value.
when 0003′.                              Age
wa_record-age   = itab-value.
endcase.
endloop.
append wa_record to it_record.
*!! Excel data is now contained within the internal table IT_RECORD
Display report data for illustration purposes
loop at it_record into wa_record.
write:/     sy-vline,
(10) wa_record-name1, sy-vline,
(10) wa_record-name2, sy-vline,
(10) wa_record-age, sy-vline.
endloop.

Unzip files using ABAP program

Hi All,
Can anybody guide me how to Unzip a .zip file using ABAP program... Appreciate your immediate reply...
actually, my scenario is to check whether zip file is created in appl.server or not.., and if zip file created then i need to check whether its blank file or any content exist inside the file...
Thanks in advance
Bhasker

hi
good
parameters: command(236) lower case.
data: std_lines(255) occurs 0 with header line.
call function 'RFC_REMOTE_PIPE'
    destination 'SERVER_EXEC'
    exporting
      command = command
      read = 'X'
    tables
      pipedata = std_lines
    exceptions
      communication_failure = 1
      system_failure = 2.
You should put your Unix command in the command parameter. "gunzip /yourfilepath/yourfilename" works on my Unix system. Once you determine the proper Unix command, you should be set. This technique is also nice because it provides you with echos back from Unix in table std_lines. For more complex Unix activity, you may want to consider throwing together a Unix script, and calling that via this code.
reward point if helpful.
thanks
mrutyun^

How to print external file using ABAP program

Hello
I want to print an external file which is located in server (
20.99.0.18\GUI\xyz\8.0QUALITY\QM_TS.DOC) .....i want to print these kind of files(which i have retrieved from table 'DRAW' field 'filep' )......i need to print these files using ABAP program.
thank you
Vikram.
Message was edited by:
Vikram Bojja

extract the data and pass to script or smartform for printing

Fm or class existing for fetching xml contents from a file using abap ?

Hi,
I need to fetch an xml file in a string of type xstring. I am using class cl_gui_frontend_services=>gui_upload.
This returns me content in table format, than i am planning to conver to xstring.
Is there any better approach or any existing function module any one know of ?
thanks
Regards
Pooja

Hi Pooja,
You can try out this program to read the XML file using abap.
*& Report ZXMLTOITAB                                                 *
REPORT ZXMLTOITAB                            .
TYPE-POOLS: ixml.
TYPES: BEGIN OF t_xml_line,
          data(256) TYPE x,
        END OF t_xml_line.
DATA: l_ixml            TYPE REF TO if_ixml,
        l_streamfactory   TYPE REF TO if_ixml_stream_factory,
        l_parser          TYPE REF TO if_ixml_parser,
        l_istream         TYPE REF TO if_ixml_istream,
        l_document        TYPE REF TO if_ixml_document,
        l_node            TYPE REF TO if_ixml_node,
        l_xmldata         TYPE string.
DATA: l_elem            TYPE REF TO if_ixml_element,
        l_root_node       TYPE REF TO if_ixml_node,
        l_next_node       TYPE REF TO if_ixml_node,
        l_name            TYPE string,
        l_iterator        TYPE REF TO if_ixml_node_iterator.
DATA: l_xml_table       TYPE TABLE OF t_xml_line,
        l_xml_line        TYPE t_xml_line,
        l_xml_table_size TYPE i.
DATA: l_filename        TYPE string.
PARAMETERS: pa_file TYPE char1024 DEFAULT 'c:\temp\orders_dtd.xml'.
* Validation of XML file: Only DTD included in xml document is supported
PARAMETERS: pa_val TYPE char1 AS CHECKBOX.
START-OF-SELECTION.
*   Creating the main iXML factory
    l_ixml = cl_ixml=>create( ).
*   Creating a stream factory
    l_streamfactory = l_ixml->create_stream_factory( ).
    PERFORM get_xml_table CHANGING l_xml_table_size l_xml_table.
*   wrap the table containing the file into a stream
    l_istream = l_streamfactory->create_istream_itable( table =
l_xml_table
                                                    size =
l_xml_table_size ).
*   Creating a document
    l_document = l_ixml->create_document( ).
*   Create a Parser
    l_parser = l_ixml->create_parser( stream_factory = l_streamfactory
                                      istream        = l_istream
                                      document       = l_document ).
*   Validate a document
    IF pa_val EQ 'X'.
      l_parser->set_validating( mode = if_ixml_parser=>co_validate ).
    ENDIF.
*   Parse the stream
    IF l_parser->parse( ) NE 0.
      IF l_parser->num_errors( ) NE 0.
        DATA: parseerror TYPE REF TO if_ixml_parse_error,
              str        TYPE string,
              i          TYPE i,
              count      TYPE i,
              index      TYPE i.
        count = l_parser->num_errors( ).
        WRITE: count, ' parse errors have occured:'.
        index = 0.
        WHILE index < count.
          parseerror = l_parser->get_error( index = index ).
          i = parseerror->get_line( ).
          WRITE: 'line: ', i.
          i = parseerror->get_column( ).
          WRITE: 'column: ', i.
          str = parseerror->get_reason( ).
          WRITE: str.
          index = index + 1.
        ENDWHILE.
      ENDIF.
    ENDIF.
*   Process the document
    IF l_parser->is_dom_generating( ) EQ 'X'.
      PERFORM process_dom USING l_document.
    ENDIF.
*&      Form get_xml_table
FORM get_xml_table CHANGING l_xml_table_size TYPE i
                              l_xml_table      TYPE STANDARD TABLE.
*   Local variable declaration
    DATA: l_len      TYPE i,
          l_len2     TYPE i,
          l_tab      TYPE tsfixml,
          l_content TYPE string,
          l_str1     TYPE string,
          c_conv     TYPE REF TO cl_abap_conv_in_ce,
          l_itab     TYPE TABLE OF string.
    l_filename = pa_file.
*   upload a file from the client's workstation
    CALL METHOD cl_gui_frontend_services=>gui_upload
      EXPORTING
        filename   = l_filename
        filetype   = 'BIN'
      IMPORTING
        filelength = l_xml_table_size
      CHANGING
        data_tab   = l_xml_table
      EXCEPTIONS
        OTHERS     = 19.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
*   Writing the XML document to the screen
    CLEAR l_str1.
    LOOP AT l_xml_table INTO l_xml_line.
      c_conv = cl_abap_conv_in_ce=>create( input = l_xml_line-data
replacement = space ).
      c_conv->read( IMPORTING data = l_content len = l_len ).
      CONCATENATE l_str1 l_content INTO l_str1.
    ENDLOOP.
    l_str1 = l_str1+0(l_xml_table_size).
    SPLIT l_str1 AT cl_abap_char_utilities=>cr_lf INTO TABLE l_itab.
    WRITE: /.
    WRITE: /' XML File'.
    WRITE: /.
    LOOP AT l_itab INTO l_str1.
      REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>horizontal_tab
IN
        l_str1 WITH space.
      WRITE: / l_str1.
    ENDLOOP.
    WRITE: /.
ENDFORM.                    "get_xml_table
*&      Form process_dom
FORM process_dom USING document TYPE REF TO if_ixml_document.
    DATA: node      TYPE REF TO if_ixml_node,
          iterator TYPE REF TO if_ixml_node_iterator,
          nodemap   TYPE REF TO if_ixml_named_node_map,
          attr      TYPE REF TO if_ixml_node,
          name      TYPE string,
          prefix    TYPE string,
          value     TYPE string,
          indent    TYPE i,
          count     TYPE i,
          index     TYPE i.
    node ?= document.
    CHECK NOT node IS INITIAL.
    ULINE.
    WRITE: /.
    WRITE: /' DOM-TREE'.
    WRITE: /.
    IF node IS INITIAL. EXIT. ENDIF.
*   create a node iterator
    iterator = node->create_iterator( ).
*   get current node
    node = iterator->get_next( ).
*   loop over all nodes
    WHILE NOT node IS INITIAL.
      indent = node->get_height( ) * 2.
      indent = indent + 20.
      CASE node->get_type( ).
        WHEN if_ixml_node=>co_node_element.
*         element node
          name    = node->get_name( ).
          nodemap = node->get_attributes( ).
          WRITE: / 'ELEMENT :'.
          WRITE: AT indent name COLOR COL_POSITIVE INVERSE.
          IF NOT nodemap IS INITIAL.
*           attributes
            count = nodemap->get_length( ).
            DO count TIMES.
              index = sy-index - 1.
              attr   = nodemap->get_item( index ).
              name   = attr->get_name( ).
              prefix = attr->get_namespace_prefix( ).
              value = attr->get_value( ).
              WRITE: / 'ATTRIBUTE:'.
              WRITE: AT indent name COLOR COL_HEADING INVERSE, '=',
                               value COLOR COL_TOTAL   INVERSE.
            ENDDO.
          ENDIF.
        WHEN if_ixml_node=>co_node_text OR
             if_ixml_node=>co_node_cdata_section.
*         text node
          value = node->get_value( ).
          WRITE: / 'VALUE     :'.
          WRITE: AT indent value COLOR COL_GROUP INVERSE.
      ENDCASE.
*     advance to next node
      node = iterator->get_next( ).
    ENDWHILE.
ENDFORM.                    "process_dom
Regards,
Samson Rodrigues.

Sedname - Batch rename files using sed

Renaming files using sed is nothing new, but this script makes the process a little more friendly and adds a few features, including insertion of sequential numbers and a simulation mode. The output of any find command can also be piped through sedname.
sedname version 1.0.0
Batch-renames files using a sed script
Usage: sedname [OPTIONS] SEDSCRIPT FILE ...
Usage: find [...] | sedname [OPTIONS] SEDSCRIPT
Example: sedname 's/$.*$\.jpg/\1.jpeg/' *.jpg
Example: find /mypics | sedname 's/$.*$\.jpg/\1.jpeg/'
OPTIONS:
--sim simulate only
--dir rename directories too
Use #D to insert a number with D digits forming a unique filename
Example: sedname 's/thisname.*/thatname#3/' *
( changes thisname* to thatname001, thatname002, ... )
Use #0 in replacement name to insert a number if needed
Example: sedname 's/thisname.*/thatname#0/' *
( changes thisname* to thatname, thatname1, thatname2, ... )
http://igurublog.wordpress.com/download … t-sedname/
http://aur.archlinux.org/packages.php?ID=37707

What does it have over zsh's zmv:
# Remove illegal characters in a fat32 file system. Illegal characters are
# / : ; * ? " < > |
# NOTE: ``-Q'' and (D) is to include hidden files.
$ unwanted='[:;*?\"<>|]'
$ zmv -Q "(**/)(*$~unwanted*)(D)" '$1${2//$~unwanted/}'
# Changing part of a filename (i. e. "file-hell.name" -> "file-heaven.name")
$ zmv '(*)hell(*)' '${1}heaven${2}'
# or
$ zmv '*' '$f:s/hell/heaven/'
# remove round bracket within filenames
# i. e. foo-(bar).avi -> foo-bar.avi
$ zmv '*' '${f//[()]/}'
# serially all files (foo.foo > 1.foo, fnord.foo > 2.foo, ..)
$ ls *
1.c asd.foo bla.foo fnord.foo foo.fnord foo.foo
$ c=1 zmv '*.foo' '$((c++)).foo'
$ ls *
1.c 1.foo 2.foo 3.foo 4.foo foo.fnord
# Rename "file.with.many.dots.txt" by substituting dots (exept for the last
# one!) with a space
$ touch {1..20}-file.with.many.dots.txt
$ zmv '(*.*)(.*)' '${1//./ }$2'
# Remove the first 4 chars from a filename
$ zmv -n '*' '$f[5,-1]' # NOTE: The "5" is NOT a mistake in writing!
# Rename names of all files under the current Dir to lower case, but keep
# dirnames as-is.
$ zmv -Qv '(**/)(*)(.D)' '$1${(L)2}'
# replace all 4th character, which is "1", with "2" and so on
$ zmv '(???)1(???[1-4].txt)' '${1}2${2}'
# Remove the first 15 characters from a string
$ touch 111111111111111{a-z}
$ zmv '*' '$f[16,-1]'
# Replace spaces (any number of them) with a single dash in file names
$ zmv -n '(**/)(* *)' '$1${2//( #-## #| ##)/-}'
# or - with Bash
$ find . -depth -name '* *' -exec bash -c '
> shopt -s extglob
> file=$1
> dir=${file%/*}
> name=${file##*/}
> newname=${name//*([ -]) *([ -])/-}
> mv -i -- "$file" "$Dir/$newname"' {} {} \;
# Clean up file names and remove special characters
$ zmv -n '(**/)(*)' '$1${2//[^A-Za-z0-9._]/_}'
# Add *.py to a bunch of python scripts in a directory (some of them end
# in *.py and give them all a proper extension
$ zmv -n '(**/)(con*)(#qe,file $REPLY | grep "python script",)' '$1$2.py'
# lowercase all extensions (i. e. *.JPG) incl. subfolders
$ zmv '(**/)(*).(#i)jpg' '$1$2.jpg'
# Or - without Zsh
$ find Dir -name '*.[jJ][pP][gG]' -print | while read f
> do
> case $f in
> *.jpg) ;
> *) mv "$f" "${f%.*}.jpg" ;
> esac
> done
# remove leading zeros from file extension
$ ls
filename.001 filename.003 filename.005 filename.007 filename.009
filename.002 filename.004 filename.006 filename.008 filename.010
$ zmv '(filename.)0##(?*)' '$1$2'
$ ls
filename.1 filename.10 filename.2 filename.3 filename.4 filename.5 ..
# renumber files.
$ ls *
foo_10.jpg foo_2.jpg foo_3.jpg foo_4.jpg foo_5.jpg foo_6.jpg ..
$ zmv -fQ 'foo_(<0->).jpg(.nOn)' 'foo_$(($1 + 1)).jpg'
$ ls *
foo_10.jpg foo_11.jpg foo_3.jpg foo_4.jpg foo_5.jpg ...
# adding leading zeros to a filename (1.jpg -> 001.jpg, ..
$ zmv '(<1->).jpg' '${(l:3::0:)1}.jpg'
# See above, but now only files with a filename >= 30 chars
$ c=1 zmv "${(l:30-4::?:)}*.foo" '$((c++)).foo'
# Replace spaces in filenames with a underline
$ zmv '* *' '$f:gs/ /_'
# Change the suffix from *.sh to *.pl
$ zmv -W '*.sh' '*.pl'
# Add a "".txt" extension to all the files within ${HOME}
# ``-.'' is to only rename regular files or symlinks to regular files,
# ``D'' is to also rename hidden files (dotfiles))
$ zmv -Q '/home/**/*(D-.)' '$f.txt'
# Or to only rename files that don't have an extension:
$ zmv -Q '/home/**/^?*.*(D-.)' '$f.txt'
# Recursively change filenames with characters ? [ ] / = + < > ; : " , - *
$ chars='[][?=+<>;",*-]'
$ zmv '(**/)(*)' '$1${2//$~chars/%}'
# Removing single quote from filenames (recursively)
$ zmv -Q "(**/)(*'*)(D)" "\$1\${2//'/}"
# When a new file arrives (named file.txt) rename all files in order to
# get (e. g. file119.txt becomes file120.txt, file118.txt becomes
# file119.txt and so on ending with file.txt becoming file1.txt
$ zmv -fQ 'file([0-9]##).txt(On)' 'file$(($1 + 1)).txt'
# lowercase/uppercase all files/directories
$ zmv '(*)' '${(L)1}' # lowercase
$ zmv '(*)' '${(U)1}' # uppercase
# Remove the suffix *.c from all C-Files
$ zmv '(*).c' '$1'
# Uppercase only the first letter of all *.mp3 - files
$ zmv '([a-z])(*).mp3' '${(C)1}$2.mp3'
# Copy the target `README' in same directory as each `Makefile'
$ zmv -C '(**/)Makefile' '${1}README'
# Removing single quote from filenames (recursively)
$ zmv -Q "(**/)(*'*)(D)" "\$1\${2//'/}"
# Rename pic1.jpg, pic2.jpg, .. to pic0001.jpg, pic0002.jpg, ..
$ zmv 'pic(*).jpg' 'pic${(l:4::0:)1}.jpg'
$ zmv '(**/)pic(*).jpg' '$1/pic${(l:4::0:)2}.jpg' # recursively
(from zsh-lovers)
Edit: tried it now, and had to remove this silly block to make it let me use alternate delimiters:
if [ "${sedscript:0:2}" != "s/" ]; then
echo "Invalid sed script: $sedscript" > /dev/stderr
exit 1
fi
Last edited by JohannesSM64 (2010-05-31 15:29:44)

How to display HTML files using ABAP Webdynpro?

Hi,
I have a html index file and a bunch of other files accessed by the index file in a specific directory on the SAP server. I'd like to display the index file via ABAP webdynpro and allow the users to click on what they need to see. How can I achieve this using utilizing the ABAP webdynpro technology ?
Thanks!

Hi Thomas,
Thanks for taking the time to answer my question.
I have the main html file and all other files needed by the main file in one directory on the application layer of SAP. I'd like to provide the user with a link, by clicking on which they should be able to get to the main html file using the browser. This is just a standalone application.
I can try the approach using BSPs, however, I'm new to that area. Could you point me in the right direction to get started?

FM to rename   files in ABAP

Hi..I am pretty new to the world of ABAP.
I have the following task.
I need to right a function module that will be responsible for renaming files on the R/3 system (to a certain predefined format). Basically, I am thinking that FM will import/accept an old file name (incl path) as a parameter, and then FM will take care of actually renaming the file and returning the name of the new filename.
Since I am very new to all the ABAP, can any of you give me some pointers, or maybe some sample code if anybody done something similar?
All the help is appreciated.
thank you

Are you talking about files on the application server. If so, you will need to copy them into the new name and delete the old one. Here is a sample program.
report zrich_0001.
parameters: d1 type localfile default '/usr/sap/TST/SYS/Data1.txt',
            d2 type localfile default '/usr/sap/TST/SYS/Data2.txt'.
data: begin of itab occurs 0,
      rec(20) type c,
      end of itab.
data: wa(20) type c.
start-of-selection.
* open and read file 1 into an internal table
open dataset d1 for input in text mode.
if sy-subrc = 0.
    do.
      read dataset d1 into wa.
      if sy-subrc <> 0.
        exit.
      endif.
      itab-rec = wa.
      append itab.
    enddo.
endif.
close dataset d1.
* Open file 2 and copy the contents to this file
open dataset d2 for output in text mode.
loop at itab.
    transfer itab to d2.
endloop.
close dataset d2.
* Delete file 1
delete dataset d1.
Welcome to SDN! Please remember to award points for any helpful answers that you might recieve. Also, when your question has been answered completly, be sure to mark as "Solved". Thanks.
Regards,
Rich Heilman

Automator: Impossible to rename file using automator under Mac OS X Lion

Hi,
Before upgrade my iMac to MAC OS X Lion 10.7.2, I had service created with automator under snow leopard in order to rename my pictures file names by blocks instead of one by one. Since I'm using Lion, this one doesn't work anymore. I have completely recreate the service under Lion and the results is the same.
You can find below my workflow that is easy. The problem is the message error in the history of automator application. The message is "impossible to rename file "file name" because this one should create conflict with existing file". I already test a lot of times with different name where I'm sure that this one doesn't exist on my Mac but all the time without success (verify also with search function under mac)
If somebody can help me, it would be very interesting because I already tried to find answer on internet without success too.
Thanks in advance for your help.

the whole automator and in particular the record action was substantially rewritten in snow leopard. and the record action is slow, unreliable and you can't trouble-shoot it. it's a wonder it works at all. the only advice i can give is to use it as little as possible. if at all possible avoid it altogether. if you do need to use it try using keyboard strokes instead of the mouse movement. for example. use command+c and command+v for copying and pasting and use tabbing to choose the correct box on the page.

Get old item name for renamed files using TFS API

My current tfs will be retired in next few months.I am using tfs api to create a parallel tfs on a new server from the existing one. I have folders and solutions that have been renamed. I am iterating items and based on their changetype(add, edit, delete,
sourcerename etc), I am checking them in destination tfs.
I am not able to get Old filename for a file, in order to use PendRename when the item that is being iterated is Delete|SourceRename or Rename.
I tried the mentioned solution :
https://social.msdn.microsoft.com/Forums/vstudio/en-US/f9c7e7b4-b05f-4d3e-b8ea-cfbd316ef737/how-to-get-previous-path-of-renamedmoved-of-file-using-tfs-api?forum=tfsgeneral
But, my changeset has a lot of changes and hence identifying a particular file seems difficult.
Do we have something that interraltes two items (the deleted and renamed) ones other than the changeset, because there needs to be a uniquely identifier that associated the two items so that they may appear together in TFS history?

Hi Fabcoder,
As Daniel mentioned, you can migrate source control files and work items to the new TFS server by using TFS integration tools.
If the new server has the complete history, then you can view the history of the specific file to check the pervious path. Or you can do a compare between the project in new TFS where the file located with the matched project in current TFS to check
the differences.
Best regards,
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.

Sending delta records file using ABAP

Hi,
I have one extract(ABAP program) in my R/3 system which creates a extract files.
Considering very huge size of the files and then further delay in processing the same , is there a way to create small size files with delta extraction of records in each file? how to achieve this using ABAP code , for example, considering the date and time stamp etc?
Thanks for help in advance.
Best regards,
Yogita

Hi,
as of i know the delta load is nothing but the what are all the changes are made for the data that all can get by using the date or time .
full load means get the all the data from the database.
Thanks.

Rename files using text or excel file

I am trying to find out how to rename files on my pc using the names stored in a text document
eg. the file on the pc is called "C07_08.dat"
the text file has the following line "3am Eternal KLF 03:15 121 BMG C07.08"
i want to change the name of the file "C07_08.dat" to "3am Eternal.mpeg"
What I would like is a batch file or program or something that will see the text "C07.08" and find the corresponding file "C07_08.dat" and rename it "3am Eternal.mpeg"
I have managed to create a excel document that has the information in four separate columns
Column A has the name of the file I want to use (ie. 3am Eternal) Column B & C have unneeded information and Column D has the file reference (ie. C07.08)
I was told that Python or Visual basic could do this so I downloaded them but I have no experience with this so im lost as to what to do, I have over 1800 of these files so doing it file by file will take quite a while.
I have included a sample of the text file for reference if that helps
3am Eternal KLF 03:15 121 BMG C07.08
4 In The Morning Gwen Stefani 04:22 092 UMA HD1.10
4 Minutes Madonna ft J Timberlake 04:04 113 WAR HE3.05
5 6 7 8 Steps 03:24 000 BMG C48.03
5678 Steps 03:23 140 MUS H16.02
6 Of 1 Thing Craig David 03:15 116 WAR HE2.11
60 MPH New Order 03:51 125 WAR N57.11
7 Days Craig David 04:30 084 SHO N41.16
7 Things Miley Cyrus 03:29 107 EMI HE7.09
99 Luft Balloons Nena 03:58 095 WAR C27.10
99 Times Kate Voegele 03:27 112 UMA HG6.07
A Girl Like You Edwyn Collins 03:47 126 MDS R06.08
A Little Bit Pandora 03:35 132 UMA H23.01
A Little Less Conversation Elvis VS JXL 03:02 115 BMG H68.03
A Matter Of Trust Billy Joel 04:00 110 SON C59.11
A New Day Has Come Celine Dion 04:20 092 SON H65.20
A Woman Like You Mondo Rock 04:03 169 MUS R06.01
About You Now Sugababes 03:32 083 UMA HD5.08
Absolutely Everybody Vanessa Amorosi 03:52 124 TRA H40.06
Absolutely Fabulous Pet Shop Boys 03:45 132 EMI C15.02
Accidentally In Love Counting Crows 03:08 138 UMA H94.05
According To You Orianthi 03:18 066 UMA HG4.12
Achy Breaky Heart Billy Ray Cyrus 03:55 122 SON K11.02

Here are two VBScripts that will rename the files based on the text file example you provided. The script that reads a
TEXT FILE requires each entry to be separated by
ONE TAB because it is the
TAB
that it uses to split each line into 4 parts (part1 - old file name, part2 and part3 - items you don’t need, part 4 - new file name). If there is more that one tab then the Split Function will not work properly.
The second VBScript will read the
EXCEL FILE row by row and use the values in Column A for the old file name and
Column D for the new file name. This approach will work much better if you have an excel document setup like this.
I used your example that you provided and it test fine for both approaches.
'Read text file
Dim objFSO, objFolder, inFile, strInLine, strOldFile, strNewFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Select the folder
Set objFolder = objFSO.GetFolder("C:\Scripts\MusicFiles")
'Open Text File
Set inFile = objFSO.OpenTextFile("C:\Scripts\MusicFiles.txt",1)
Do Until inFile.AtEndOfStream
'Read text file line by line and Split each line into 4 parts.
strInLine = Split(inFile.ReadLine, vbTab)
'Old File name
strOldFile = strInLine(3)
'new File name
strNewFile = strInLine(0)
'Loop through the files in the folder
For Each File In objFolder.Files
'If the file name matches the old file name above
If File.Name = strOldFile & ".dat" Then
'Replace it
File.Name = strNewFile & ".mpeg"
End If
Next
Loop
'Close the text reader
inFile.Close
MsgBox "Done."
'Read Excel file
Dim objFSO, objExl, objFolder, objWorkbook, strOldFile, strNewFile, intRow
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objExl = CreateObject("Excel.Application")
'Select the folder
Set objFolder = objFSO.GetFolder("C:\Scripts\MusicFiles")
'Open the Excel file
Set objWorkbook = objExl.Workbooks.Open("C:\Scripts\MusicFiles.xls")
'Start at row 1
intRow = 1
'Read each Row until the end
Do Until objExl.Cells(intRow,1).Value = ""
'Old file name is in column 4
strOldFile = objExl.Cells(intRow, 4).Value
'New file name is in column 1
strNewFile = objExl.Cells(intRow, 1).Value
'Loop through each file in the selected folder
For Each File In objFolder.Files
'If the file name matches the old file name above
If File.Name = strOldFile & ".dat" Then
'Replace it
File.Name = strNewFile & ".mpeg"
End If
Next
'Increment each row
intRow = intRow + 1
Loop
'Close Excel
objExl.Quit
MsgBox "Done."
v/r LikeToCode....Mark the best replies as answers.

Rename files using Enter key

Using the Enter key to rename files and folders works only with items in the desktop. Everywhere else I need to use Command+Enter. Any one experiencing this behavior? Any ideas on how to make it work as it should (only Enter needed)?

Thanks Bazsl,
Lua is the language chosen by Adobe for plugins. It's also the language used for some of Lightroom proper.
PS - In my opinion, Lua is a great little language, although the plugin environment is limited..

PS Script To Rename File Using CSV - Filename Is Containing IP Address And Needs To Be Host Name

Hello All,
I am currently working with PDF reports which are named "TEMXX.XX.XXX.XX_141215.pdf", XX.XX.XXX.XX is an IP address. I have created a CSV which contains two columns, ColumnA = IPAddress ColumnB = HostName. I would like to remove the existing title
of the file, and rename it as "ColumnB.pdf".
The only two commands which come to mind are:
get-childitem *.pdf | foreach { rename-item $_ $_.Name.Replace("TEM", "") }
get-childitem *.pdf | foreach { rename-item $_ $_.Name.Replace("_141215", "") }
The above commands are of course to remove the unwanted "TEM" and "_141215" but I cannot seem to figure out how to just rename files as ColumnB.pdf.
Any help would be greatly appreciated :).

Hello All,
I performed the following but it did not execute, just returned the prompt. The final ps1 file was saved and ran as follows:
$lines = Import-Csvservers.csv
ForEach($line in $lines){
get-childitem *.pdf |where {$_.name -eq $line.ColumnA}|Rename-Item -NewName $line.ColumnB
CSV file named servers.csv displayed as follows:
ColumnA,ColumnB
192.168.1.2,SERVER1
192.168.1.3,SERVER2
Files in Explorer displayed as follows:
ray192.168.1.2_2015.pdf
ray192.168.1.3_2015.pdf
As indicated above the filename should be finalized as:
SERVER1.pdf
SERVER2.pdf
Any help in figuring this out would be greatly appreciated.

Renaming files using a list of names in a txt or csv file

Hello everyone,
I'm trying to use AppleScript (although I'm a total noob to it) to rename the files in a folder (if possible using something like this - set folder to choose folder) to coincide to a list of names (in a txt or csv - can be any extension needed).
To paint the picture clearer I'll have something like this
Files_as_they_are
Files_renamed
01.mkv
Valar Dohaeris.mkv
02.mkv
Mhysa.mkv
Here is what I've tryed so far : (some point through the night I've tryed to repeat part of the process thus the "fcount" but the result was even worse)
set theFolder to choose folder
set ep to {"Valar Dohaeris", "Dark Wings, Dark Words"}
set fcount to 1
tell application "Finder"
set name of file fcount of theFolder to item fcount of ep
end tell
set fcount to fcount + 1
Tnx in advance...

This will work with a comma separated text file,
i.e.:
     Files as the are, Files Renamed
     01.mkv, Valar Dohaeris.mkv
     02.mkv, Mhysa.mkv
Note that if the file to be renamed exists, it will be overwritten (A test can be added to skip if exists if needed)
set theFoler to POSIX path of (choose folder with prompt "Choose folder with Files" default location path to desktop)
set theFile to POSIX path of (choose file with prompt "Choose TXT file" default location path to desktop)
do shell script "
cd " & quoted form of theFoler & "
while read line
do
     OldImageName=${line%,*}
     NewImageName=${line#*,}
     if [ -e \"$OldImageName\" ] ; then
          mv \"$OldImageName\" \"$NewImageName\"
     else
          echo \"$OldImageName\" >> ~/Desktop/Errors.txt
     fi
done < " & quoted form of theFile & "

Rename File using ABAP

Similar Messages

Maybe you are looking for