Scratchpad output to the A10C II Profile on 1 Tile

Scripts/DCS-ExportScript/ExportsModules/A-10C_2.lua

@@ -806,9 +806,19 @@ function ExportScript.ProcessIkarusDCSConfigLowImportance(mainPanelDevice)
 	ExportScript.Tools.SendData(2000, ExportScript.Tools.RoundFreqeuncy((UHF_RADIO:get_frequency()/1000000))) -- ExportScript.Tools.RoundFreqeuncy(frequency (MHz|KHz), format ("7.3"), PrefixZeros (false), LeastValue (0.025))
 	]]
 
-	-- Export ScratchPad
+	-- Export ScratchPad. Recommend 11pt font in DCS-Interface
-	local lScratchPad = ExportScript.Tools.getListIndicatorValue(5)
+	local lScratchPadGet = ExportScript.Tools.getListIndicatorValue(5)
-        ExportScript.Tools.SendData(2040, ExportScript.Tools.coerce_nil_to_string(lScratchPad.Scratch_PAD))
+	local lScratchPad = ExportScript.Tools.coerce_nil_to_string(lScratchPadGet.Scratch_PAD) -- .. lScratchPad.Scratch_PAD_Mode
+	local lScratchPadMode = ExportScript.Tools.coerce_nil_to_string(lScratchPadGet.Scratch_PAD_Mode)
+	-- https://www.tutorialspoint.com/string-gsub-function-in-lua-programming
+	lScratchPadMode = string.gsub(lScratchPadMode, "%s+", "") -- removes spaces
+	local lScratchPadTotal = lScratchPad .. lScratchPadMode -- combines the scratchpad and the mode
+	if lScratchPadTotal == '' then lScratchPadTotal = '[Sctch]\n[Pad]' end -- abbreviation for scratch due to 7 charPerLine later
+	ExportScript.Tools.SendData(2040, lScratchPadTotal)
+	local lScratchPadStacked = splitLines(lScratchPadTotal, 7) -- splits into newlines
+	lScratchPadStacked = string.gsub(lScratchPadStacked,' ]','_]') -- takes care of the blank space
+	lScratchPadStacked = string.gsub(lScratchPadStacked,' \n]','_]') -- removes new line with only bracket
+	ExportScript.Tools.SendData(2041, lScratchPadStacked)
 
 	-- AN/ARC-164 UHF and UHF Preset Channel
 	---------------------------------------------------
@@ -1157,7 +1167,7 @@ function ExportScript.ProcessDACConfigLowImportance(mainPanelDevice)
 		--ExportScript.Tools.WriteToLog(ltmp2..' (metatable): '..ExportScript.Tools.dump(getmetatable(ltmp1)))
 	end
 	]]
---[[
+	--[[
 	-- LITENING_INTERFACE
 	local lLITENING_INTERFACE = GetDevice(11)
 	ExportScript.Tools.WriteToLog('lLITENING_INTERFACE:get_station '..ExportScript.Tools.dump(lLITENING_INTERFACE:get_station()))
@@ -1209,7 +1219,7 @@ function ExportScript.ProcessDACConfigLowImportance(mainPanelDevice)
 	--ExportScript.Tools.WriteToLog('lINTERCOM:set_communicator '..ExportScript.Tools.dump(lINTERCOM:set_communicator())) -- test the parameters
 	--ExportScript.Tools.WriteToLog('lINTERCOM:set_voip_mode '..ExportScript.Tools.dump(lINTERCOM:set_voip_mode())) -- test the parameters
 ]]
---[[
+	--[[
 	local ltmp1 = 0
 	for ltmp2 = 1, 73, 1 do
 		ltmp1 = GetDevice(ltmp2)
@@ -1218,7 +1228,7 @@ function ExportScript.ProcessDACConfigLowImportance(mainPanelDevice)
 	end
 ]]
 
---getIndicatorData(3)
+	--getIndicatorData(3)
 
 end
 
@@ -1226,6 +1236,27 @@ end
 --     Custom functions    --
 -----------------------------
 
+-- formats the string by putting newlines in the appropriate places
+function splitLines(stringIn, charPerLine)
+	local rows = DIV(#stringIn,charPerLine)
+	for i = 1, rows, 1 do -- the i's represent the displacement and multipliers needed for the self iterations
+		stringIn = string.insert(stringIn, '\n', (charPerLine * i) + (i-1))
+	end
+	return stringIn
+end
+
+-- workaround for floor division. typically //
+-- http://lua-users.org/wiki/SimpleRound
+function DIV(a,b)
+	return (a - a % b) / b
+end
+
+-- used to insert newlines at the right areas
+-- https://stackoverflow.com/questions/59561776/how-do-i-insert-a-string-into-another-string-in-lua
+function string.insert(str1, str2, pos)
+	return str1:sub(1,pos)..str2..str1:sub(pos+1)
+end
+
 -----------------------------
 -- CDU Export based on Jan Boeckers DCS BIOS
 -- https://github.com/dcs-bios/dcs-bios