各位大哥:
小弟想做一个电脑自动随机书写文件的小程序.象情书圣手那样的功能 即可自动随机的书写情书,我的想法是将那些情书语句做成字符串资源然后随机显示
或者将情书语句做一个数据库文件,然后随机读取显示.不知道能否这样实现?
同类型软件象情书圣手是怎样实现这种功能的呢?
能否给出简单演示的代码? 感激不尽!!!!!!!!!!!!
小弟想做一个电脑自动随机书写文件的小程序.象情书圣手那样的功能 即可自动随机的书写情书,我的想法是将那些情书语句做成字符串资源然后随机显示
或者将情书语句做一个数据库文件,然后随机读取显示.不知道能否这样实现?
同类型软件象情书圣手是怎样实现这种功能的呢?
能否给出简单演示的代码? 感激不尽!!!!!!!!!!!!
你的女友：小月
生日:1977然后定义一个魔板
Function 加载内容()
内容 = "Dear " & textA
内容 = 内容 & Chr(13) & Chr(10) & " 我的宝贝，你可知道,"
内容 = 内容 & Chr(13) & Chr(10) & " 我是多么的爱你。"
内容 = 内容 & Chr(13) & Chr(10) & " 你那" & textB & ",它是那样的令人陶醉，"
内容 = 内容 & Chr(13) & Chr(10) & " 更不用说你那对" & textC & "，"
内容 = 内容 & Chr(13) & Chr(10) & " 它让我如此的痴迷,"
内容 = 内容 & Chr(13) & Chr(10) & " 就好象一汪秋水频频荡漾，又似夜晚的繁星点点闪亮。"
内容 = 内容 & Chr(13) & Chr(10) & " 但最令我疯狂的，还是你那" & textD & "，"
内容 = 内容 & Chr(13) & Chr(10) & " 它总是充满了诱惑，让我产生犯罪的念头，"
内容 = 内容 & Chr(13) & Chr(10) & " 每当我有意或无意间轻触到它的时候，我的全身便燃起了熊熊烈火。"
内容 = 内容 & Chr(13) & Chr(10) & " 请饶恕我的口不择言，我是如此疯狂地爱着你。"
内容 = 内容 & Chr(13) & Chr(10)
内容 = 内容 & Chr(13) & Chr(10) & " 如果你认为我仅仅是爱你的外表，那么你错了，"
内容 = 内容 & Chr(13) & Chr(10) & " 你是如此的" & textE
内容 = 内容 & Chr(13) & Chr(10) & " 这些才是我爱你的真正原因。"
内容 = 内容 & Chr(13) & Chr(10)
内容 = 内容 & Chr(13) & Chr(10) & " 啊，我的宝贝，救救我这颗已被神箭射穿的心灵吧！"
内容 = 内容 & Chr(13) & Chr(10) & " 让我们珍惜这份情缘，"
内容 = 内容 & Chr(13) & Chr(10) & " 携起手来，"
内容 = 内容 & Chr(13) & Chr(10) & " 一起走向永远，永远......"
内容 = 内容 & Chr(13) & Chr(10)
内容 = 内容 & Chr(13) & Chr(10) & "爱你的，"
内容 = 内容 & Chr(13) & Chr(10) & " " & textF
If textG = True Then
If textL = False Then
内容 = 内容 & Chr(13) & Chr(10) & textH
Else
内容 = 内容 & Chr(13) & Chr(10) & " " & CStr(Now)
End If
End If
End Function呵呵，明白了
也可以放到数据库中
你这样还可以 我也用过了 可这能写几个模版? 有人知道同类型软件如何实现的没?
有兴趣的可下载同类型软件看看 可写不同的情书几千封多 我看可能是采用我说的方法
用数据库实现有好方法没? 简单实现一下 谢谢先!!!!!!!!!!!!!!
将所有的情话存入memo类型中，加标志区分，读取后再置换也比较麻烦
让人晕 不会又不丢脸 是吧?
至于你说的问题我又方法 不用麻烦 关键是这个技术问题!!!!!!!!!! (不要钻牛角 ok??????)
各位大哥: 可下载一个情书圣手 或魔术情书 看看它们的效果 ! 有谁能简单给出它们的实现方法 马上给100分!!!!!!!!!!!!!!!
感激!!!!!!!!!!!!!!!!!!!!!!!!!
我的宝贝，你可知道,
我是多么的爱你。
你那鱼香肉撕,它是那样的令人陶醉，
更不用说你那对卤鹅掌，
它让我如此的痴迷,
就好象一汪秋水频频荡漾，又似夜晚的繁星点点闪亮。
但最令我疯狂的，还是你那辣子鸡，
它总是充满了诱惑，让我产生犯罪的念头，
每当我有意或无意间轻触到它的时候，我的全身便燃起了熊熊烈火。
请饶恕我的口不择言，我是如此疯狂地爱着你。 如果你认为我仅仅是爱你的外表，那么你错了，
你是如此的四川凉面
这些才是我爱你的真正原因。 啊，我的宝贝，救救我这颗已被神箭射穿的心灵吧！
让我们珍惜这份情缘，
携起手来，
一起走向永远，永远......爱你的，
食客