|
------------------------
<< MODLIB VBA CODE
------------------------
Option Compare Database
Option Explicit
Option Base 0
'-------------------------------------------
' Standard Module: modLib
' Code Project: BkDB App.accdb
' Version: 1.01
' Coding: VBA, SQL, XML, HTML, CSS, SSI
' Coder: Assen Kantchev
' Copyright: (c) 2019
' -------------------------------------------
' disk operations
Private Sub CreateDir(ByVal strDirPath As String)
End Sub
Private Function ReadFile(ByVal strFilePath As String) As String
End Function
Public Sub WriteFile(ByVal strFilePath As String, ByVal strTxt As String)
End Sub
Public Sub SaveTxtAsDocx(ByVal strTxtPath As String, ByVal strDocxPath As String)
End Sub
Public Sub SaveDocxAsPdf(ByVal strTxtPath As String, ByVal strDocxPath As String)
End Sub
' content formatting
Public Function ForTop(ByVal strTop As String, _
Optional ByVal blnHtml As Boolean = False) As String
End Function
Public Function ForBkEdit(ByVal strEdit As String, _
Optional ByVal blnFull As Boolean = False) As String
End Function
Public Function ForVbaCode(ByVal strVba As String) As String
End Function
Public Function ForHtmlCode(ByVal strHtml As String) As String
End Function
------------------------
<< MODSYS VBA CODE
------------------------
Option Compare Database
Option Explicit
Option Base 0
' -------------------------------------------
' Standard Module: modSys
' Code Project: BkDB App.accdb
' Version: 1.01
' Coding: VBA, SQL, XML, HTML, CSS, SSI
' Coder: Assen Kantchev
' Copyright: (c) 2019
' -------------------------------------------
' doc definitions
Public Enum DocType
TXT = 1
DOCX = 2
PDF = 3
JPG = 4
End Enum
Public Function SetDoc(ByVal strDoc As String) As DocType
SetDoc = Empty
Select Case strDoc
Case "TXT": SetDoc = TXT
Case "DOCX": SetDoc = DOCX
Case "PDF": SetDoc = PDF
Case "JPG": SetDoc = JPG
End Select
End Function
Public Function GetDoc(ByVal dctDoc As DocType) As String
GetDoc = Empty
Select Case dctDoc
Case TXT: GetDoc = "TXT"
Case DOCX: GetDoc = "DOCX"
Case PDF: GetDoc = "PDF"
Case JPG: GetDoc = "JPG"
End Select
End Function
' xml tags
Private Const XmlLtMenu As String = "<LEFT MENU/>"
Private Const XmlNoLtMenu As String = "<LEFT MENU = EMPTY/>"
Private Const XmlRtMenu As String = "<RIGHT MENU/>"
Private Const XmlNoRtMenu As String = "<RIGHT MENU = EMPTY/>"
Private Const XmlPage As String = "<PAGE/>"
Private Const XmlNoPage As String = "<PAGE = EMPTY/>"
Private Const ErrMsg As String = "ERROR: "
Private Sub GenBkDirs(ByVal strDirPath As String, _
Optional ByVal strTpl As String = Empty, _
Optional ByVal blnVisibOnly As Boolean = False)
On Error GoTo ErrHand
Exit Sub
ErrHand:
MsgBox ErrMsg & Err & " " & Err.Description, vbCritical
End Sub
' book publishing
Public Sub GenBkDoc(ByVal strDirPath As String, _
Optional ByVal dctDoc As DocType = TXT, _
Optional ByVal blnManyDocs As Boolean = False, _
Optional ByVal blnSubDirs As Boolean = False, _
Optional ByVal strTplSort As String = Empty, _
Optional ByVal blnVisibOnly As Boolean = False)
On Error GoTo ErrHand
Exit Sub
ErrHand:
MsgBox ErrMsg & Err & " " & Err.Description, vbCritical
End Sub
Public Sub PubBkHtml(ByVal strXmlPath As String, _
ByVal strHtmlPath As String, _
Optional ByVal blnManyPages As Boolean = False, _
Optional ByVal dctLink As DocType = Empty, _
Optional ByVal blnPresLink As Boolean = False, _
Optional ByVal strLinkPath As String = Empty, _
Optional ByVal blnSubDirs As Boolean = False, _
Optional ByVal strTplSort As String = Empty, _
Optional ByVal blnVisibOnly As Boolean = False, _
Optional ByVal blnAltULine As Boolean = False, _
Optional ByVal blnRead As Boolean = False)
On Error GoTo ErrHand
Exit Sub
ErrHand:
MsgBox ErrMsg & Err & " " & Err.Description, vbCritical
End Sub
Public Sub CopyBkCovs(ByVal strLibPath As String, _
ByVal strDirPath As String, _
Optional ByVal blnSubDirs As Boolean = False, _
Optional ByVal strTplSort As String = Empty, _
Optional ByVal blnVisibOnly As Boolean = False)
On Error GoTo ErrHand
Exit Sub
ErrHand:
MsgBox ErrMsg & Err & " " & Err.Description, vbCritical
End Sub
Public Sub CopyBkPres(ByVal strLibPath As String, _
ByVal strDirPath As String, _
Optional ByVal blnSubDirs As Boolean = False, _
Optional ByVal strTplSort As String = Empty, _
Optional ByVal blnVisibOnly As Boolean = False)
On Error GoTo ErrHand
Exit Sub
ErrHand:
MsgBox ErrMsg & Err & " " & Err.Description, vbCritical
End Sub
' term publishing
Public Sub GenTrmDoc(ByVal strDirPath As String, _
Optional ByVal dctDoc As DocType = TXT, _
Optional ByVal blnManyDocs As Boolean = False, _
Optional ByVal blnVisibOnly As Boolean = False)
On Error GoTo ErrHand
Exit Sub
ErrHand:
MsgBox ErrMsg & Err & " " & Err.Description, vbCritical
End Sub
Public Sub PubTrmHtml(ByVal strXmlPath As String, _
ByVal strHtmlPath As String, _
Optional ByVal blnManyPages As Boolean = False, _
Optional ByVal blnLngDesc As Boolean = False, _
Optional ByVal blnLink As Boolean = False, _
Optional ByVal strLinkPath As String = Empty, _
Optional ByVal blnVisibOnly As Boolean = False, _
Optional ByVal blnAltULine As Boolean = False)
On Error GoTo ErrHand
Exit Sub
ErrHand:
MsgBox ErrMsg & Err & " " & Err.Description, vbCritical
End Sub
' topic publishing
Public Sub PubTopTreeHtml(ByVal strXmlPath As String, _
ByVal strHtmlPath As String, _
Optional ByVal blnVisibOnly As Boolean = False)
On Error GoTo ErrHand
Exit Sub
ErrHand:
MsgBox ErrMsg & Err & " " & Err.Description, vbCritical
End Sub
Public Sub PubDirTreeHtml(ByVal strXmlPath As String, _
ByVal strHtmlPath As String, _
ByVal strDirPath As String, _
Optional ByVal lngLev As Long = 1)
On Error GoTo ErrHand
Exit Sub
ErrHand:
MsgBox ErrMsg & Err & " " & Err.Description, vbCritical
End Sub
' code publishing
Public Sub PubAppCodeHtml(ByVal strXmlPath As String, ByVal strHtmlPath As String)
On Error GoTo ErrHand
Exit Sub
ErrHand:
MsgBox ErrMsg & Err & " " & Err.Description, vbCritical
End Sub
Public Sub GenVbaCodeHtml(ByVal strVbaPath As String, ByVal strHtmlPath As String)
On Error GoTo ErrHand
Exit Sub
ErrHand:
MsgBox ErrMsg & Err & " " & Err.Description, vbCritical
End Sub
--------------------------
<< BUSN.XML TEMPLATE
--------------------------
<html>
<head>
<!-- Template: BUSN.xml
Code Project: BkDB App.accdb
Version: 1.01
Coding: VBA, SQL, XML, HTML, CSS, SSI
Coder: Assen Kantchev
Copyright: (c) 2019 -->
<title>Business Books</title>
<link rel="stylesheet" type="text/css" href="CSS/Style.css">
<style type="text/css">
<!--#include file="SSI\Style.shtml" -->
</style>
</head>
<body>
<table id="TOP" cellspacing="0" cellpadding="0" border="0" width="100%"><tr><td bgcolor="#000000">
<ul class="level1">
<li><a href="Index.html">Business</a>
<ul class="level2">
<li><a href="Index.html">Books</a>
<ul class="level3">
<li><a href="Index.html">Business</a></li>
<li><a href="Quant-Bks.html">Model/Quant</a></li>
<li><a href="CFA-Bks.html">CFA</a></li>
<li><a href="Other-Bks.html">Other</a></li>
<li><a href="Struct.html">Structure</a></li>
</ul></li>
<li><a href="Site-Map.html">Expertise</a></li>
<li><a href="Trms.html">Terms</a></li>
</ul></li>
<li><a href="CFA-Nts.html">Finance</a>
<ul class="level2">
<li><a href="CFA-Nts.html">CFA</a></li>
<li><a href="FRM-Nts.html">FRM</a></li>
<li><a href="Trms.html#INVT">Terms</a>
<ul class="level3">
<li><a href="Trms.html#INVT">Invest</a></li>
<li><a href="Trms.html#MRKT">Markets/REG</a></li>
<li><a href="Trms.html#INDX">Indexes/FX</a></li>
</ul></li>
</ul></li>
<li><a href="IT-Bks.html">Prog/IT</a>
<ul class="level2">
<li><a href="IT-Bks.html">Books</a>
<ul class="level3">
<li><a href="IT-Bks.html">Prog/IT</a></li>
<li><a href="Other-IT.html">Other IT</a></li>
<li><a href="Struct.html">Structure</a></li>
</ul></li>
<li><a href="VBA.html">VBA</a></li>
<li><a href="Trms.html#PROG">Terms</a>
<ul class="level3">
<li><a href="Trms.html#PROG">Prog/IT</a></li>
<li><a href="Trms.html#TECH">Tech/IT</a></li>
</ul></li>
</ul></li>
<li><a href="Code.html">Apps</a>
<ul class="level2">
<li><a href="Code.html">Code</a></li>
</ul></li>
<li><a href="Site-Map.html">About</a>
<ul class="level2">
<li><a href="Site-Map.html">Site Map</a></li>
<li><a href="Contact.html">Contact</a></li>
</ul></li>
</ul>
</td></tr></table>
<table cellspacing="0" cellpadding="2" border="0" width="100%"><tr><td bgcolor="#d0d0d0">
<img src="IMG/Busn-Bks.jpg" width="1000" height="200" border="0">
</td></tr></table><p>
<table cellspacing="0" cellpadding="2" border="0"><tr><td>
[ Business Books |
<a href="Quant-Bks.html">Model/Quant Books</a> |
<a href="CFA-Bks.html">CFA Books</a> |
<a href="Other-Bks.html">Other Books</a> |
<a href="Struct.html">Structure</a> |
<a href="Trms.html">Terms</a> ]
</td></tr></table><p>
<table cellspacing="0" cellpadding="24" border="0"><tr><td valign="top">
<b>Book Topics:</b><br><br>
<img src="IMG/Busn-Bks.png" border=0>
</td><td valign="top">
<ul>
<LEFT MENU/>
</ul>
</td><td valign="top">
<ul>
<RIGHT MENU/>
</ul>
</td></tr></table>
<table cellspacing="0" cellpadding="4" border="0"><tr><td>
<PAGE/>
</td></tr></table><p>
<table cellspacing="0" cellpadding="2" border="0"><tr><td>
[ <a href="#TOP"><<</a> |
Business Books |
<a href="Quant-Bks.html">Model/Quant Books</a> |
<a href="CFA-Bks.html">CFA Books</a> |
<a href="Other-Bks.html">Other Books</a> |
<a href="Struct.html">Structure</a> |
<a href="Trms.html">Terms</a> ]
</td></tr></table><p>
<table cellspacing="0" cellpadding="2" border="0" width="100%"><tr><td bgcolor="#000000">
(c) 2018 www.kantchev.ch / Made in Notepad (++)
</td></tr></table>
</body>
</html>
|
