发信人: zrsoft()
整理人: winsy(2003-03-09 13:21:38), 站内信件
|
很多网友都将自己在编程时的一些心得放在网上供大家参考，但是将程序源代码
转成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]
|
|