1.00inputfilebypassfalsetspopenFiledocumentdocumenttsplistlinespvalueAutotspbooleanappendvaluefalseinserttextbypassfalsetsplongStringtextvaluePayment fee received:
1 Quantity Payment for Belle_Nuit_Subtitler, US 89
Registered-To: Jeasung Wee
Email: weesung@bora.dacom.co.kr
Postal: WEESUNG SYSTEM Co.,Korea BLDG 805,Yoido-Dong 44-12,Seoul, KOREA 150-010
Total Amount Paid: US 90
Date: 2001-06-26
Processed: 2001-06-26
PaymentMethod: Card
Invoice: 362483059
TransactionID: CH9XKX9TU5RH
EmailDate: 2001-06-26
Note: email from 211.49.90.75
tspbooleanreplaceselectionvaluefalseparsercustombypassfalsetspstringheadingsvaluekey,valuetspstringseparatorvalue: scriptbypassfalsetsplongStringscripttextvaluedim text as string
text = gettext
select case getcolumnname
case "key"
setkey "key", text
case "value"
setkey getkey("key"), text
end select
parsertextbypassfalsetspbooleanaddheadingsvaluefalseinserttextbypassfalsetsplongStringtextvalue<email>
Dear <registered-to>,
thank you for your confidence in belle nuit subtitler. i have written this program first for myself because as e documentary editor, i had more and more the responsability to edit the subtitles for the screening copies. this was a rather repetitive job and i wrote this to get my life easier. i hope it will help you as well.
for the registration, you need to enter the following username and serial number. please take care to type exactly (including capitals) to match the serial number to the username.
username: <registered-to>
serial number: <registrationkey>
the online licence entitles to install it on one macintosh. however, you can freely distribute the offline version to your translators, directors, producers.
current version of the programm is 1.1. there are english, french and german versions available.
you will find the latest version on the belle-nuit site:
<http://www.belle-nuit.com/subtitler/>
as a licenced user, you are entitled to support by email. please send questions, problems, bug reports, downmload and installing problems, comments and feature request to <matti@belle-nuit.com>. i will try to resolve them as soon as possible. if you asking for support from another email account than the one you used for registering, please submit username and serial number with your mail.
if you don't have access to email while editing, you can also send a fax to ++41 1 274 21 14.
please allow one working day for response, as i am mainly working as an editor.
i have a maillist for announces of subtitler updates and bug reports. if you don't want to receive further mail about subtitler, please drop me just a mail and i will not put you on that list. the adresses on this list will neither be sold or given to a third party.
with kind regards
matthias bürcher
tspbooleanreplaceselectionvaluefalsescriptbypassfalsetsplongStringscripttextvaluefunction getregistrationkey(s as string) as string
dim i,mykey,v as integer
dim test,result as string
mykey = 13
test = left(s+" ",8)
for i = 0 to 3
v = asc(mid(test,2*i+1,1))
result = result + right(hex(v+mykey),2)
v = asc(mid(test,2*i+2,1))
result = result + right(hex(v+mykey),2)
if i<3 then
result = result + "-"
end if
next
return result
end function
dim text as string
text = gettext
text = replaceall(text,"<registered-to>",getkey("registered-to"))
text = replace(text,"<email>",getkey("email"))
text = replace(text,"<registrationkey>",getregistrationkey(getkey("registered-to")))
print textwindow.width701window.height502window.horizontalsplitter268window.verticalsplitter202window.pagesetupD1FC000100004A806B12EB882230000008810007218100004E716054243081F268FFEFD0006CEB8A2230200008010007670A08810007218120004E7150806B18123C00FEE139207081F268FFEFD00020C32800014E7160185080123C007FE039207081F268FFEFD0001CC32800014E714CDF0107303081F2globalwindow.top48globalwindow.left650globalwindow.width100globalwindow.height50