Personal/cops
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Update i18n from Calibre2Opds

Browse source 
If Excel 64Bits is used the following needs to be done :
Private Declare Function -> Private Declare PtrSafe Function
ByRef lpWideCharStr As Long -> ByRef lpWideCharStr As LongPtr
This commit is contained in:
Sébastien Lucas 2012-11-30 09:06:07 +01:00
parent ee1264d087
commit 0787f6ead2
7 changed files with 38 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
tools/export_file.txt
View file

@ -37,7 +37,7 @@ Sub Export_File(sType, iCol As Integer)
iBlankLines = iBlankLines + 1
Else
iBlankLines = 0
If Not isComment(sTemp) And Not sTemp Like "config*" And Not sTemp Like "gui*" And Not sTemp Like "error*" And Not sTemp Like "info*" And Not sTemp Like "stats*" Then
If Not isComment(sTemp) And (Not (sTemp Like "config*") Or sTemp Like "config.Language*") And Not sTemp Like "gui*" And Not sTemp Like "error*" And Not sTemp Like "info*" And Not sTemp Like "stats*" Then
sOut = """" & sTemp & """" & ":"
' Print #oFile, "=";
sTemp = shSheet.Cells(iRow, iCol).Value