vb语言小说生成

vb语言小说生成

VB要是能生成小说，那还要那些个作家作甚？
弄个小说采集的话还是可以的。需要的话,回复我，我有现成的

'vb 建立随机短语组合 '示例代码，事先需要建立 配置短语.txt 输入短语“大地 星星 爱 我们 喜欢 ...”等等 '将代码保存为 .vbs 文件运行 dim fso set fso=createobject("scripting.filesystemobject") set frn=fso.opentextfile("配置短语.txt",1) randomize strtemarray=frn.readline strarray=split(strtemarray) ''确定数组大小 for each key in strarray intcount=intcount+1 next ''随机输出数组 redim boolstr(intcount-1) while count<=(intcount-1) num=int(rnd*intcount) if boolstr(num)=false then juzi=juzi & strarray(num) boolstr(num)=true count=count+1 end if wend set ie=createobject("internetexplorer.application") ie.navigate "about:blank" ie.document.parentwindow.clipboarddata.setdata "text", juzi set wshshell=createobject("wscript.shell") wshshell.run "notepad.exe" wsh.sleep 100 wshshell.sendkeys "^(v)"简单来说就是三个阶段的工作： 1、首先是要建立词汇字典 比如说人名，形容词，动词等等的词汇集合， 就像有人便翻新华字典，边给小孩取名字一样，字典就是他的词库。 这个可以利用词汇词典，或者从网上现成的作品中提取来实现，是一个相对容易的阶段。 2、利用 vb（其实任何支持文本操作的 编程语言都可以）建立随机组合文本的程序。当然还是要有一个规则，比如： 名词+动词+形容词+动词+形容词 或者 人名+动词+形容词 （这个阶段是个废脑筋，建立规则的阶段，数据库和代码的技术相对来说是比较成熟的。） 3、程序生成的文本很多都是词不达意的，所以要进行后期的校对修缮（这是最关键，也是最耗时的阶段），你提到的那个小说其实现在都还在修改中吧。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息