File Associations & Default Application

Question

Hi All,
First time post so please be gentle.
I have a file (extension qif) which at the moment opens with a windows program via Codeweavers Crossover. I now need to change this to open with a little Applescript application I have written myself. So off I toddle to Get Info, Open With, other, select my QIF2OFX application, click change all...and the application flips back to the previous setting. Now I have tried this on my MacBookPro which doesn't even have Codeweavers or the windows app installed (and so no default program) and it still won't allow me to change the default program for all files. I can change it for the instance of that individual file (for as long as it exists) but as for all files, no joy.
Any ideas anybody?
Best regards,
Chris

Answer 1

Hi,
All resolved thank you very much. Quite chuffed with the outcome as it is my first ever Applescriot...marks out of ten anyone...places it could be improved or made more efficient? Code follows: -
on open TheDroppedFile
-- save ApplesScripts delimiters current state and setup variables
set Old_Delims to AppleScript's text item delimiters
set Save_Date to "00/00/00"
--Extracting the account number from the source file name NOTE This is dependant on the naming convention used by your bank
set QIF_File to TheDroppedFile as text
set Acct_Num to text ((offset of "_" in QIF_File) + 7) thru ((offset of "_" in QIF_File) + 14) of QIF_File
-- Set the file to write to
set OFX_File to (open for access file (((path to documents folder) as string) & Acct_Num & ".ofx") with write permission)
-- write header concat file name with header record
set OFX_Header to "OFXHEADER:100
DATA:OFXSGML
VERSION:102
SECURITY:NONE
ENCODING:USASCII
CHARSET:1252
COMPRESSION:NONE
OLDFILEUID:NONE
NEWFILEUID:NONE
<OFX>
<SIGNONMSGSRSV1>
<SONRS>
<STATUS>
<CODE>0
<SEVERITY>INFO
</STATUS>
<DTSERVER>20991231000000[-5:EST]
<LANGUAGE>ENG
</SONRS>
</SIGNONMSGSRSV1>
<BANKMSGSRSV1>
<STMTTRNRS>
<TRNUID>1
<STATUS>
<CODE>0
<SEVERITY>INFO
</STATUS>
<STMTRS>
<CURDEF>GBP
<BANKACCTFROM>
<BANKID>999999
<ACCTID>" & Acct_Num & "
<ACCTTYPE>CHECKING
</BANKACCTFROM>
<BANKTRANLIST>
<DTSTART>20000101000000[-5:EST]
<DTEND>20991231000000[-5:EST]
" as string
write (OFX_Header) to OFX_File starting at eof
-- Reading your file in to memory
set QIF_Records to paragraphs of (read file QIF_File)
-- Read through records and write out correct OFX standard
repeat with i in QIF_Records
-- Check for EOF NOTE: This is dependent on how your bank ends the file
if (offset of "D" in i) = 1 and length of i = 1 then
exit repeat
end if
-- Create DTPOSTED records
if (offset of "D" in i) = 1 and length of i > 1 then
set OFX_Data1 to "<DTPOSTED>" & (text 8 thru 11 of i) & (text 5 thru 6 of i) & (text 2 thru 3 of i) & "000000[-5:EST]"
end if
-- Create FTID record from DTPOSTED date and increment counter by 1 padded with zeros
if (offset of "D" in i) = 1 then
if Save_Date = (text 2 thru 11 of i) then
set FT_ID to FT_ID + 1
else
set Save_Date to (text 2 thru 11 of i)
set FT_ID to 1
end if
set FITID_Data to "<FITID>+" & (text 8 thru 11 of i) & (text 5 thru 6 of i) & (text 2 thru 3 of i) & addleading_zeros(FTID, 5)
end if
-- Set TRNTYPE to PAYMENT or OTHER depending upon sign
if (offset of "T" in i) = 1 then
if (offset of "-" in i) = 2 then
set OFX_Data1 to "<STMTTRN>" & return & "<TRNTYPE>PAYMENT" & return & OFX_Data1
else
set OFX_Data1 to "<STMTTRN>" & return & "<TRNTYPE>OTHER" & return & OFX_Data1
end if
set OFX_Data2 to "<TRNAMT>" & (text 2 thru (length of i) of i)
end if
-- Check length of text transaction description text and strip out & if present
if (offset of "P" in i) = 1 then
if i contains "&" then
set AppleScript's text item delimiters to {"&"}
set Delimited_List to every text item of i
set AppleScript's text item delimiters to {"&amp:"}
set i to Delimited_List as string
set AppleScript's text item delimiters to Old_Delims
end if
if length of i < 33 then
set TranDescLength to length of i
else
set TranDescLength to 32
end if
set OFX_Data3 to "<NAME>" & (text 2 thru TranDescLength of i) & return & "</STMTTRN>"
set OFX_Data to OFX_Data1 & return & OFX_Data2 & return & FITID_Data & return & OFX_Data3 & return
write (OFX_Data) to OFX_File
end if
end repeat
set OFX_Footer to "</BANKTRANLIST>
<LEDGERBAL>
<BALAMT>00.00
<DTASOF>20991231000000[-5:EST]
</LEDGERBAL>
</STMTRS>
</STMTTRNRS>
</BANKMSGSRSV1>
</OFX>" as string
write (OFX_Footer) to OFX_File starting at eof
set AppleScript's text item delimiters to Old_Delims
do shell script "rm " & quoted form of the POSIX path of QIF_File
tell application "Finder"
--activate
open file (((path to documents folder) as string) & Acct_Num & ".ofx")
delete file (((path to documents folder) as string) & Acct_Num & ".ofx")
end tell
end open
on addleading_zeros(ThisNumber, MaxLeadingZeros)
set the Threshold_Number to (10 ^ MaxLeadingZeros) as integer
if This_Number is less than the Threshold_Number then
set the Leading_Zeros to ""
set the Digit_Count to the length of ((This_Number div 1) as string)
set the Character_Count to (MaxLeadingZeros + 1) - Digit_Count
repeat Character_Count times
set the Leading_Zeros to (the Leading_Zeros & "0") as string
end repeat
return (Leading_Zeros & (This_Number as text)) as string
else
return This_Number as text
end if
end addleadingzeros
Best regards,
Chris