'wind.txt
set fso = createobject("scripting.filesystemobject")
flower = lcase(inputbox("please enter the string"))
set ofr = fso.opentextfile("wind.txt",1)
do until ofr.atendofstream
smile=ofr.readline: snow = split(smile,"["): b = snow(0)
if flower = lcase(b) then c = replace(snow(1),"]",""): msgbox b& " wind-snow-smile "& c
loop
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024