From a0d4ccd465865a4b70be8f4ca254c27f1fd2aaf7 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Tue, 11 Oct 2016 16:22:25 -0400
Subject: Initial commit

---
 tmplate.bas | 49 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100644 tmplate.bas

(limited to 'tmplate.bas')

diff --git a/tmplate.bas b/tmplate.bas
new file mode 100644
index 0000000..4a4331f
--- /dev/null
+++ b/tmplate.bas
@@ -0,0 +1,49 @@
+100 TMPLATE$ = "TEST.TXT"
+110 DIM LBL$[1]
+120 DIM REPL$[1]
+130 LBL$[1] = "title"
+140 REPL$[1] = "JEFFS BLOG"
+150 ILBL = 1
+160 GOSUB 18000
+165 PRINT TTEXT$
+170 STOP
+18000 REM ============================
+18001 REM Template processing
+18002 REM 
+18003 REM INPUT - TMPLATE$ File to open
+18004 REM         LBL$ Label array
+18005 REM         REPL$ Replacements
+18006 REM         ILBL Label array
+18007 REM              length
+18008 REM OUTPUT - TTEXT$ Text with
+18009 REM ============================
+18010 OPEN TMPLATE$ FOR INPUT AS #3
+18020 TTEXT$ = ""
+18030 WHILE NOT EOF(3)
+18040     LINE INPUT#3, L$
+18050     GOSUB 18100
+18060     TTEXT$ = TTEXT$ + CHR$(13) + L$
+18070 WEND
+18080 CLOSE #3
+18090 RETURN
+18100 REM Search for key
+18105 IF LEN(L$) < 7 THEN RETURN
+18110 FOR IL = 1 TO LEN(L$)-2
+18120     IF MID$(L$, IL, 3) = "{% " THEN GOSUB 18150:GOTO 18100
+18130 NEXT IL
+18140 RETURN
+18150 REM Find the end of the string
+18160 FOR IJ = IL TO LEN(L$)-2
+18170     IF MID$(L$, IJ, 3) = " %}" THEN GOTO 18200
+18180 NEXT IJ
+18190 RETURN
+18200 REM Attempt replacement
+18210 FOUNDLBL$ = MID$(L$, IL+3, IJ-(IL+3))
+18220 FOR LBLINDEX = 1 TO ILBL
+18230     IF LBL$[LBLINDEX] = FOUNDLBL$ THEN GOTO 18260
+18240 NEXT LBLINDEX
+18250 RETURN
+18260 LNEW$ = LEFT$(L$, IL-1) + REPL$[LBLINDEX] + RIGHT$(L$, LEN(L$)-IJ-2)
+18270 L$ = LNEW$
+18280 RETURN
+
\ No newline at end of file
-- 
cgit v1.2.3