Re: text conversion?
Posted: Tue Feb 27, 2024 1:47 pm
Here is a seriously frightening list of non-unicode font encodings:
https://philip.html5.org/data/charsets-2.html
https://philip.html5.org/data/charsets-2.html
OK, I guessed, try this script, it will NOT doe the replace thing but encodes your exported text to UTF8 and chances are good
that PHP will recognize the format as UTF8 and act accordingly.
However I have no idea of PHP, maybe something sels has to be set in PHP for this?
Anyway, see line 127 of my script:
Code: Select all
on mouseUp
# set the itemdel to "/"
# get the effective filename of this stack
# delete item -1 of it
# put it & "/" into stakkensFilsti
## We can now use:
put specialfolderpath("resources") & "/" into stakkensFilsti
put stakkensFilsti & "xport af versemaal/" into dataMappensFilsti
put dataMappensFilsti & "versemaal.txt" into filensSti
put "file:" & filensSti into destFil
---det er den fil som enten skabes eller skrives til
put "versemålsnr,linjer,metrik,stavelser2" into meterListen
put "CSnr,KSnr,Hjsk19nr,Hjsk17nr,GTLnr,DDTnr,glDDSnr,nyDDSnr,vmliste,vers" into salmeListen
put "nyDDKnr,glDDKnr,andenMelBognr,prefNr,prefGlNr" into koralListen
put "" into tempResultat
--put tab into adskilningstegn
put "|" into adskilningstegn
set cursor to busy
set lockScreen to true
put the seconds into startTid
put "0" into antalKortBearbejdet
put "1" into linNumresultat
put the number of cards of this stack into tempSidsteSide
repeat with x = 2 to tempSidsteSide -------357 -----alle kortene!!!
go card x
put "" into tempTempResultat ---det midlertidige output (for dette kort!)
-------put "" into tempResultat ---det endelige output (for alle definerede kort!)
repeat with i = 1 to the number of lines in fld "vmliste"
set the itemDelimiter to ","
repeat with u = 1 to the number of items in meterListen
put fld (item u of meterListen) & adskilningstegn after line i of tempTempResultat
end repeat
set the itemDelimiter to ","
repeat with u = 1 to the number of items in salmeListen
if item u of salmeListen = "vmliste" then
--------- her skal lidt ekstrabehandling til
put line i of fld (item u of salmeListen) into afkortetLinje
delete word 1 to 2 of afkortetLinje
if char 1 of afkortetLinje = " " then
delete char 1 of afkortetLinje
end if
---get afkortetLinje
put afkortetLinje into tempAfkortet
if ";" is in tempAfkortet then
put char 1 to offset (";", tempAfkortet) - 1 of tempAfkortet into afkortetLinje
else if "(" is in tempAfkortet then
put char 1 to offset ("(", tempAfkortet) - 1 of tempAfkortet into afkortetLinje
else
put tempAfkortet into afkortetLinje
end if
replace tab with "" in afkortetLinje
put afkortetLinje & adskilningstegn after line i of tempTempResultat
---put erstatVanskeligeBogstaver(afkortetLinje) & adskilningstegn after line i of tempTempResultat
-----------
else
if line i of fld (item u of salmeListen) = "-" then
put "" & adskilningstegn after line i of tempTempResultat
else if line i of fld (item u of salmeListen) = "÷" then
put "" & adskilningstegn after line i of tempTempResultat
else if line i of fld (item u of salmeListen) = "" then
put "" & adskilningstegn after line i of tempTempResultat
else
put line i of fld (item u of salmeListen) & adskilningstegn after line i of tempTempResultat
end if
end if
end repeat
set the itemDelimiter to ","
repeat with u = 1 to the number of items in koralListen
put "" into koralPræfiks
put item u of koralListen into aktuelKoralbog
if aktuelKoralbog = "nyDDKnr" then
put "K " into koralPræfiks
else if aktuelKoralbog = "glDDKnr" then
put "gK " into koralPræfiks
end if
if line i of fld (item u of koralListen) = "-" then
put "" & adskilningstegn after line i of tempTempResultat
else if line i of fld (item u of koralListen) = "÷" then
put "" & adskilningstegn after line i of tempTempResultat
else if line i of fld (item u of koralListen) = "" then
put "" & adskilningstegn after line i of tempTempResultat
else
put line i of fld (item u of koralListen) into tempKoralLinje
put "," & koralPræfiks into kommaPræfiks
replace "," with kommaPræfiks in tempKoralLinje
put koralPræfiks & tempKoralLinje & adskilningstegn after line i of tempTempResultat
end if
end repeat
put adskilningstegn after line i of tempTempResultat
put "jabadaba" after line i of tempTempResultat
replace tab with "" in tempTempResultat
end repeat
------put return & tempTempResultat after url destFil
---put the number of lines of tempResultal into linNumresultat
---add 1 to linNumresultat
put tempTempResultat & return after tempResultat
---put tempTempResultat into line linNumresultat of tempResultat
---put the number of lines of tempResultal into linNumresultat
---add 1 to linNumresultat
add 1 to antalKortBearbejdet
end repeat ---- rep-loop for alle kortene!!
--put uniEncode(tempResultat) into url destFil
##########################################################
## DO NOT the REPLACE thing below. but put the TEXTENCODED text directly into that target file here:
put textencode(tempResultat,"UTF-8") into url(stakkensFilsti)
##
EXIT TO TOP
###########################################################
set lockScreen to false
end mouseUp
