发信人: 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]
|
|