UC知道VB文本问题
来源：百度知道 编辑：UC知道 时间：2024/05/14 13:18:20
应该实现不太难吧
还有一个问题，
我要生成一个站长助手.asp
我想通过以下代码实现
Private Sub Command1_Click()
Dim a As Integer, b As Integer
Open App.Path & "/站长助手.asp" For Output As #1
Print #1,zzzs1.Text + """" & mima.Text; """" + zzzs2.Text
Close #1
MsgBox "生成站长助手.asp！"
End Sub
那个站长助手是有密码的,我把第一段写到zzzs1.Text去了，然后再加上密码的mima.Text
但是zzzs2.Text需要保存很多字节,我把站长助手最后那部分复制上去,只能保存到不过1/5的字节
哎,难道没有好的办法加上去了吗，我不想用什么数据库,也不会....
其实上面的我都是想做成一个集合很多程序的单一EXE(没有什么数据库之类的)
有没有什么好的办法啊.麻烦高手指点一下,谢谢啦
并不是连接其他的程序，是把程序打包起来吧，集成一个EXE（也没有数据库），点击按钮就可以调用出来
如果你要点击一个按钮就生成一个.exe文件并执行，最简单的就是用OLE控件，这个控件一拖到窗体中就会弹出“浏览文件”，浏览到后，VB编程器会把它和你的程序整合到一起。
点击按钮的事件里用：
ole1.AutoActivate
这样就可以使整合进去的exe文件被释放出来并自动运行。
如果你想生成.asp文件，可以把其中的密码先用一个字符串替换，生成的时候再用replace()函数再替换成mima.text,然后再写入文件就行了。
至于你的说只能输入不到1/5的内容，你可以用多行文本框来作输入框。也可以用richTextBox控件。
wwolfbd 不要以为自己了不起，鄙视你这种自以为了不起的菜菜。问题很简单。
第二个问题很简单，看的出来文件共3部分，其实你只要用资源文件代替zzzs2.Text就可以了，用自定义资源，在下面解答的问题一中有例子。实在不会就把zzzs2.Text的内容用下面提到的方法写成一个文件 ，zzzs1.Text写成1个文件，然后密码写成一个文件，用 dos的copy命令组合起来，这是最笨的办法。
问题一稍微复杂一些，但是我基本上写好了代码，你只要会用就行
先打开 VB资源编辑器 ，导入自定义资源，然后选择要打包的执行文件
鼠标右键 -》属性 打开资源的属性
类型为 "MYFILE"
标识号 1
保存资源文件
俺是冲着分数才回答这2个问题的，辛苦这么久总不能让我白辛苦吧。只少赏我个 最佳答案 称号吧.
模块1 ： Module1
Public Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long
Public De