New file format samples

KcsDev1982 · KcsDev1982 · commit dde89e50c5e3 · 2025-07-29T10:39:47.000-04:00
Samples to detect files encoding and convert UTF16 data
diff --git a/README.md b/README.md
@@ -14,6 +14,7 @@ Sample code and projects for the Programming Language for Business (PL/B).
 * courses      - Course materials and samples for training 
 * datatable    - DATATABLE object samples
 * demo         - Modern answer/master programs for 10.7
+* files        - Sample programs that manipulate file data
 * htmlcontrol_designer - Designers for the HTMLCONTROL object
 * http_root    - Additional files for the plbwebsrv http_root
 * includes     - Latest Sunbelt include files
diff --git a/files/findfmt.pls b/files/findfmt.pls
@@ -0,0 +1,37 @@
+*---------------------------------------------------------------
+.
+. Program Name: findfmt.pls
+. Description:  Find the format for a text file using Byte Order Marks
+.
+. Revision History:
+.
+. Date: 07/29/2025
+. Original code
+.
+file            FILE
+bom1            INTEGER         1
+bom2            INTEGER         1
+bom3            INTEGER         1
+bom4            INTEGER         1
+fileName        DIM             80
+seq             FORM            "-1"
+
+                KEYIN           *ES, "Enter file name: ",fileName
+                OPEN            file,fileName,Read
+                READ            file,Seq;*ABSON,bom1,bom2,bom3,bom4
+                CLOSE           file
+
+                IF              (bom1 == 0xFF AND bom2 == 0XFE AND bom3 == 0 AND bom4 == 0)
+                DISPLAY         "File Format: UTF-32 little-endian"
+                ELSEIF          (bom1 == 0 AND bom2 == 0 AND bom3 == 0xFE AND bom4 == 0XFF)
+                DISPLAY         "File Format: UTF-32 big-endian"
+                ELSEIF          (bom1 == 0xFF AND bom2 == 0XFE)
+                DISPLAY         "File Format: UTF-16 little-endian"
+                ELSEIF          (bom1 == 0xFE AND bom2 == 0XFF)
+                DISPLAY         "File Format: UTF-16 big-endian"
+                ELSEIF          (bom1 == 0xEF AND bom2 == 0xBB AND bom3 == 0xBF )
+                DISPLAY         "File Format: UTF-8"
+                ELSE
+                DISPLAY         "File Format: ASCII"
+                ENDIF
+                KEYIN           "Done: ",fileName
diff --git a/files/fixutf16.pls b/files/fixutf16.pls
@@ -0,0 +1,42 @@
+*---------------------------------------------------------------
+.
+. Program Name: fixutf16.pls
+. Description:  Convert a UTF16 file to ASCII file
+.
+. Revision History:
+.
+. Date: 07/29/2025
+. Original code
+.
+jsonFile        FILE
+jsonBuffer      DIM             ^
+outBuffer       DIM             ^
+fileSize        INTEGER         4
+fullFileName    DIM             250
+fileName        DIM             80
+seq             FORM            "-1"
+
+                KEYIN           *ES, "Enter file name: ",fileName
+                OPEN            jsonFile,fileName,Read
+                GETFILE         jsonFile,TxtName=fullFileName
+                FINDFILE        fullFileName,FileSize=fileSize
+                IF              (!fileSize)
+                INCR            fileSize
+                ENDIF
+.
+                DMAKE           jsonBuffer,fileSize
+                DMAKE           outBuffer,fileSize
+.
+                READ            jsonFile,Seq;*ABSON,jsonBuffer
+
+                BUMP            jsonBuffer,2
+                CONVERTUTF      jsonBuffer,outBuffer,4
+
+                CLOSE           jsonFile
+                DFREE           jsonBuffer
+
+                PREP            jsonFile,"output.txt"
+                WRITE           jsonFile,Seq;outBuffer
+                CLOSE           jsonFile
+
+                KEYIN           "Done: ",fileName
