VB6.0 自動生成 get let方法的工具

最新推荐文章于 2017-09-06 01:30:00 发布

最新推荐文章于 2017-09-06 01:30:00 发布 · 195 阅读

本文介绍了一个使用VBA编写的简单程序，该程序能够打开文本文件并从中提取特定格式的数据，进一步生成对应的属性Get和Set代码段。通过解析每一行文本，程序能够自动构造出适用于VBA项目的属性声明。

OptionExplicit

DimsAsString

PrivateSubCommand1_Click()

CD.Filter="TXT|*.txt"
CD.ShowOpen
Text1=CD.FileName

EndSub

PrivateSubCommand2_Click()

DimtempAsString,b()AsString,stAsString,mAsString

s=""

OpenText1ForInputAs#1

DoUntilEOF(1)
LineInput#1,temp

b=Split(temp,"")
m=Right(b(0),Len(b(0))-1)

st="PublicPropertyGet"&m&"()As"&b(1)&vbCrLf&_

m&"="&b(0)&vbCrLf&_

"EndProperty"&vbCrLf&_

"PublicPropertyLet"&m&"(ByValvNewValueAs"&b(1)&")"&vbCrLf&_

b(0)&"=vNewValue"&vbCrLf&_

"EndProperty"&vbCrLf
s=s&st

Loop
Close#1
Text2=s

EndSub

PrivateSubForm_Load()

Text1=""

Text2=""

EndSub