fix encoding

4d-depot · Oct 28, 2022 · 353570f · 353570f
1 parent 095201a
commit 353570f
Show file tree

Hide file tree

Showing 5 changed files with 6 additions and 5 deletions.
diff --git a/Project/Sources/Methods/getFileInfo.4dm b/Project/Sources/Methods/getFileInfo.4dm
@@ -8,7 +8,7 @@ C_LONGINT:C283($pos; $longTrouvee)
 C_COLLECTION:C1488($lineCol)
 
 $file:=$1
-$docStr:=Document to text:C1236($file.path)
+$docStr:=Document to text:C1236($file.path; "UTF-16")
 
 $pos:=Position:C15(Choose:C955(Is Windows:C1573; "\r\n"; "\r"); $docStr; 0; $longTrouvee)
 $line:=Substring:C12($docStr; 0; $pos)

diff --git a/Project/Sources/Methods/getFileLogLines.4dm b/Project/Sources/Methods/getFileLogLines.4dm
@@ -18,9 +18,10 @@ $num:=$4
 
 $alerted:=False:C215
 $i:=0
-$logFileTab:=Split string:C1554(Document to text:C1236($logFile); $carriageReturn)
+$logFileTab:=Split string:C1554(Document to text:C1236($logFile; "UTF-16"); $carriageReturn)
 For each ($logLine; $logFileTab)
 
+	ALERT:C41($logLine)
 	If (Not:C34(Bool:C1537($i%1000)))
 		Use ($endLog)
 			$endLog["prog"+$num]:=$i/$logFileTab.length

diff --git a/Project/Sources/Methods/getLastSeq.4dm b/Project/Sources/Methods/getLastSeq.4dm
@@ -4,7 +4,7 @@ C_COLLECTION:C1488($col; $line)
 C_LONGINT:C283($0)
 
 $file:=$1
-$col:=Split string:C1554(Document to text:C1236($file); Choose:C955(Is Windows:C1573; "\r\n"; "\r"))
+$col:=Split string:C1554(Document to text:C1236($file; "UTF-16"); Choose:C955(Is Windows:C1573; "\r\n"; "\r"))
 
 If ($col[$col.length-1]="")
 	$line:=Split string:C1554($col[$col.length-2]; Char:C90(Tab:K15:37))

diff --git a/Project/Sources/Methods/getLastTime.4dm b/Project/Sources/Methods/getLastTime.4dm
@@ -4,7 +4,7 @@ C_COLLECTION:C1488($col; $line)
 C_TEXT:C284($0)
 
 $file:=$1
-$col:=Split string:C1554(Document to text:C1236($file); Choose:C955(Is Windows:C1573; "\r\n"; "\r"))
+$col:=Split string:C1554(Document to text:C1236($file; "UTF-16"); Choose:C955(Is Windows:C1573; "\r\n"; "\r"))
 If ($col[$col.length-1]="")
 	$line:=Split string:C1554($col[$col.length-2]; Char:C90(Tab:K15:37))
 Else 

diff --git a/Project/Sources/Methods/getlastOp.4dm b/Project/Sources/Methods/getlastOp.4dm
@@ -17,7 +17,7 @@ For each ($tmpFile; $logPath)
 	End case 
 End for each 
 
-$docStr:=Document to text:C1236($file.path)
+$docStr:=Document to text:C1236($file.path; "UTF-16")
 $lastLine:=getLastLine(->$docStr)
 $lastLineCol:=Split string:C1554($lastLine; Char:C90(Tab:K15:37))