精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● VB和Basic>>● VB和Basic(1)>>Internet>>大块“程序源代码”向HTML格式的转换

主题:大块“程序源代码”向HTML格式的转换
发信人: zrsoft()
整理人: fishy(2000-04-14 17:28:49), 站内信件

很多网友都将自己在编程时的一些心得放在网上供大家参考,但是将程序源代码
转成HTML格式时有一个问题就是程序一行只有很少的字符,但是转过去时如果用
回车来做为换行符,可能会造成行与行之间的间隔很大,很是难看,但是要做成
每两行之间都放上一个换行符“《BR》”,则是一个非常麻烦的事。解决的办法
是用Frontpage在Normal状态下直接粘贴,这样一般就可以了。我们也可以自己编
写一个小程序来实现这个功能,程序很简单,用两个文本框和一个命令钮,取名
为txtTXT,txtHTML,cmdTran,开始执行后,将要转换的程序代码粘贴到左边的tx
tTXT中,执行命令钮就可以把转换后的代码出现有右边的txtHTML中。最主要的命
令钮的内容如下:
Private Sub cmdTran_Click()
Dim mLen As Long
Dim mTXT As String
Dim mHTML As String
mTXT = txtTXT
mHTML = ""
If Trim(mTXT) = "" Then Exit Sub
mLen = Len(mTXT)
For i = 1 To mLen
    strtemp = Mid(mTXT, i, 1)
    If strtemp = Chr(13) Then
        strtemp = "<BR>" & Chr(13)
    End If
    mHTML = mHTML & strtemp
Next
txtHTML = mHTML

End Sub
把右边的代码拿去用就是了。

--
峥嵘软件室
http://go.163.com/~zrsoft    http://zrsoft.8u8.com
[email protected]
欢迎首页连接!

※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.96.40.13]

[关闭][返回]