Usually I like to do everything with Powerpro, not using many small programs,
but in this case I think it will be easier to search for a freeware/shareware program which specialises in renaming files, and can do Regular Expressions and double byte characters. __________________________________________ If you want to try with PowerPro... > I want to rename files... > > abcde.txt ---> aPbPcPdPe.txt > ¿ìž®³ª¶ó.txt --> ¿ìPž®P³ªP¶ó.txt -- It's Korean. I notice that when the first character is less than ascii 128, then you add a "P" after every character. When the first character is more than ascii 127, then you add a "P" after every two characters. So change this part of your script: > FOR (LCOUNT = 1 ; LCOUNT <= (LENGTH(ONAME) - 5) ; LCOUNT = LCOUNT +1) > wait.for(40) > nname = nname ++ select(oname,lcount, lcount) ++ "P" > wait.for(40) > ;;WIN.DEBUG(NNAME) > IF (CTRL == 1) > QUIT > endfor to this: if(select(oname,1) gt "z")do FOR (LCOUNT = 1 ; LCOUNT <= (LENGTH(ONAME) - 6) ; LCOUNT = LCOUNT +2) wait.for(40) nname = nname ++ select(oname,lcount, lcount) ++ select(oname,lcount+1, lcount+1) ++ "P" wait.for(40) ;;WIN.DEBUG(NNAME) IF (CTRL == 1) QUIT endfor else FOR (LCOUNT = 1 ; LCOUNT <= (LENGTH(ONAME) - 5) ; LCOUNT = LCOUNT +1) wait.for(40) nname = nname ++ select(oname,lcount, lcount) ++ "P" wait.for(40) ;;WIN.DEBUG(NNAME) IF (CTRL == 1) QUIT endfor endif Attention: PowerPro's Web site has moved: http://www.ppro.org Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/power-pro/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
