'示例代碼，事先需要建立?配置短語.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、程序生成的文本很多都是詞不達意的，所以要進行後期的校對修繕（這是最關鍵，也是最耗時的階段），妳提到的那個小說其實現在都還在修改中吧。