diff options
| author | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-11 16:22:25 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-11 16:22:25 -0400 |
| commit | a0d4ccd465865a4b70be8f4ca254c27f1fd2aaf7 (patch) | |
| tree | 620febdca086184f7706440c4bda9a4f5e1285af /txtdir.bas | |
| download | gwblog-a0d4ccd465865a4b70be8f4ca254c27f1fd2aaf7.tar.gz gwblog-a0d4ccd465865a4b70be8f4ca254c27f1fd2aaf7.zip | |
Initial commit
Diffstat (limited to 'txtdir.bas')
| -rw-r--r-- | txtdir.bas | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/txtdir.bas b/txtdir.bas new file mode 100644 index 0000000..2ab7eb1 --- /dev/null +++ b/txtdir.bas @@ -0,0 +1,20 @@ +9000 REM ======================================== +9001 REM Textile-to-html dir processor +9002 REM +9003 REM INPUT - TDIR$ Directory with Textile +9004 REM HDIR$ Directory for HTML +9005 REM ======================================== +9010 TXTDIR$ = TDIR$ +9020 IF RIGHT$(TXTDIR$,1) <> "\" THEN TXTDIR$ = TXTDIR$ + "\" +9030 DIREC$ = TXTDIR$ + "*.TXT" +9040 GOSUB 15000 +9050 HTMDIR$ = HDIR$ +9060 IF RIGHT$(HTMDIR$,1) <> "\" THEN HTMDIR$ = HTMDIR$ + "\" +9070 FOR IC = 1 TO LC +9080 TFILE$ = TXTDIR$ + FL$(IC) +9090 HFILE$ = HTMDIR$ + LEFT$(FL$(IC), LEN(FL$)-3) + "HTM" +9100 GOSUB 10000 +9110 NEXT IC +9120 RETURN + + |