📄 如何以一个模板为基础生成文件.txt

📁 VB技巧问答10000例 VB技巧问答10000例

💻 TXT

字号:

你 现 在 访 问 的 站 点 的 页 面 实 际 上 就 是 采 用 模 板 方 式 生 成 的 。 你 可 以 这 样 组 织 你 的 模 板 文 件 ： 
    <HTML> 
    ... 
    <B><!-- Name --></B> 
    ... 
    </HTML> 
    然 后 使 用 Replace函 数 将 “ <!-- Name -->” 替 换 为 其 他 的 值 ： 
    Open "template.htm" For Input As #1 
    Open "result.htm" For Output As #2 
    Do While Not Eof(1) 
     Line Input #1, s 
     s = Replace(s, , "<!-- Name -->", rd("Name")) 
     Print #2, s 
    Loop 
    Close 1 
    Close 2 
    Replace是 VB 6的 新 函 数 ， 如 果 你 使 用 的 是 vb6， 可 以 加 入 下 面 的 函 数 ： 
     Public Function Replace(sIn As String, sFind As String, _ 
     sReplace As String, Optional nStart As Long = 1, _ 
     Optional nCount As Long = -1, Optional bCompare As _ 
     VbCompareMethod = vbBinaryCompare) As String 
     
     Dim nC As Long, nPos As Integer, sOut As String 
     sOut = sIn 
     nPos = InStr(nStart, sOut, sFind, bCompare) 
     If nPos = 0 Then GoTo EndFn: 
     Do 
     nC = nC + 1 
     sOut = Left(sOut, nPos - 1) & sReplace & _ 
     Mid(sOut, nPos + Len(sFind)) 
     If nCount <> -1 And nC >= nCount Then Exit Do 
     nPos = InStr(nStart, sOut, sFind, bCompare) 
     Loop While nPos > 0 
     EndFn: 
     Replace = sOut 
     End Function 
<END>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -