text file nightmare

Oh man (woman? ['Karo' is male|female ?]),


<biz RemoveThis @theplayspace.com.au> wrote:

> Thanks for the suggestion about XML but it is simply impossible for me
> to start studying a whole new matter now.

No fear, new experiences/fields are supposed to widen the horizon :-)

>I did improve the script by
> reducing some code and making the routine to rename the path much
> shorter and easier. Still, it does not work as it fills in the wrong
> values in long file. It works perfectly on short files. I really want
> this to work before I go insane. Thank you.

you are welcome.

My last attempt:
If you are willing to risk entering a new field i'll try to show you the
'xml'-way (with a learning curve near zero). The only thing required by
you is to install the 'Smile' package.
<http://www.satimage.fr/software/downloads/Smile323regular.dmg>
If you agree i'll post a script tomorrow, which should fit your needs.

Kurt

--
if you want to send me your info:
k dot klamp at t-online dot de
 >> Stay informed about: text file nightmare 

This message is not archived
 >> Stay informed about: text file nightmare 

<biz.TakeThisOut@theplayspace.com.au> wrote:

> HI Joseph. It's not about the paragraph definition since the
> (sometimes wrong) file paths are exactly placed where they should be.
> I'll try the log. Hi Kurt. I did install smile.

Fine

>What's next. Thank you.


OK here we go:

1. make a copy of the the original text file (XML file)
2. a) launch Smile and choose 'new-> script'
or
2.b) launch ScriptEditor and choose 'new'
3. copy the script below into the window
4. run the script
5. tell us whats going on

-- script using xmllib.osax
property x_file : "path to your textfile"
property p : "" -- holds the xml ref
property ml : "" -- holds ref to the itunes playlist
property tr : "" -- holds refs to found tracks

-- init
tell application "iTunes" to set ml to library playlist 1

try
set x_file to (alias x_file)
on error
set x_file to choose file with prompt "Select the text input file!"
end try

try
set p to XMLOpen x_file
set _entries to XMLCount p
repeat with i from 1 to _entries
set p1 to XMLChild p index i with all nodes
set {artistname, songname} to XMLGetAttribute p1 name {"ARTIST",¬
"TITLE"}
set tr to missing value
try
tell application "iTunes"
set tr to (file tracks of ml whose (artist is artistname¬
and name is songname))
if (count tr) is 1 then
set t1 to get item 1 of tr
set fullpath to (location of t1)
else
error "wrong match"
end if
end tell
set _info to (info for fullpath)
set fname2 to name of _info
tell application "Finder" to set path2 to POSIX path of¬
(folder of fullpath as string)
set p2 to XMLXPath p1 with "LOCATION"
XMLSetAttribute p2 name {"DIR", "FILE"} to {path2, fname2}
on error s
log s
end try
end repeat
on error s number n
log s & return & n
XMLSave p
end try
XMLSave p
XMLClose p

-- end script


be aware of line breaks.


Try and report,

hth,
Kurt
 >> Stay informed about: text file nightmare 

This message is not archived
 >> Stay informed about: text file nightmare 

Hi guys. I figured it out. I used a different way to substitute text
in text edit (by installing TextCommands). I still have to do a fair
bit of manual editing in the DJ program but that has nothing to do
with the script. It now works fine. Thanks alot for everyone's input.
Karo.
My final script:
global allText
global filePath
global fileName
global artistName
global songName
global fileName2
global filePath2
global counter
global flag
global TheLocationText


set counter to 2
repeat with x from 1 to 1810

tell application "TextEdit"
set AppleScript's text item delimiters to "<ENTRY"
set allText to text of document 1
set textItems to text items of allText

set parag to text item counter of textItems


if parag does not contain "ARTIST=" then
set counter to counter + 1
set parag to text item counter of allText


if parag does not contain "ARTIST=" then
set counter to counter + 1
set parag to text item counter of allText


end if

end if

if parag contains "&" then
set counter to counter + 1
set parag to text item counter of allText

if parag contains "&" then
set counter to counter + 1
set parag to text item counter of allText

if parag contains "&" then
set counter to counter + 1
set parag to text item counter of allText

if parag contains "&" then
set counter to counter + 1
set parag to text item counter of allText

if parag contains "&" then
set counter to counter + 1
set parag to text item counter of allText

end if
end if
end if
end if
end if

set AppleScript's text item delimiters to "\""
set artistName to text item 2 of parag as text --First match
criteria
set songName to text item 6 of parag as text --Second match
criteria
set AppleScript's text item delimiters to " "
set line2 to text item 2 of parag
set AppleScript's text item delimiters to "\""
set filePath to text item 2 of line2 as text ----that's what needs
to be replaced with value of filePath2
set fileName to text item 4 of line2 as text --that's what also
needs to be replaced with value of fileName2
end tell

tell application "iTunes"

try
set TheTrack to (track 1 of library playlist 1 whose artist is
artistName and the name is songName)
set TheLocation to location of TheTrack as string
set TheLocationText to text of TheLocation
set flag to 1 -- using a flag in case iTunes cannot find a song for
some reason
on error
set flag to 0
end try
end tell

set text item delimiters to ":" -- now a path like
"Disk:Users:kurtp:Music:iTunes" is converted to a path like "Disk/
Users/kurtp/Music/iTunes" which is how my DJ program describes files.
set y to text items of TheLocationText
set r to the count of text items of y
set f to text items 1 through -2 of y
set fileName2 to text item -1 of y

set newPathTemp to "/" & text item 2 of y

set d to 3
repeat with i from 1 to (r - 3)
set newPathTemp to newPathTemp & "/" & text item d of y
set d to d + 1
end repeat
get newPathTemp
set filePath2 to newPathTemp & "/"



tell application "TextEdit"
if flag = 1 then

tell application "TextCommands"
set replace1 to search parag for fileName replacing with fileName2
set replace2 to search replace1 for filePath replacing with
filePath2

set replaceWhole1 to search allText for parag replacing with
replace2

end tell
set text of document 1 to replaceWhole1
else
set flag to 1
end if

end tell
set counter to counter + 1

end repeat
 >> Stay informed about: text file nightmare