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

1. OptionExplicit
2. DimsAsString
3. PrivateSubCommand1_Click()
4. CD.Filter="TXT|*.txt"
5. CD.ShowOpen
6. Text1=CD.FileName
7. EndSub
9. PrivateSubCommand2_Click()
10. DimtempAsString,b()AsString,stAsString,mAsString
11. s=""
12. OpenText1ForInputAs#1
13. DoUntilEOF(1)
14. LineInput#1,temp
15. b=Split(temp,"")
16. m=Right(b(0),Len(b(0))-1)
17. st="PublicPropertyGet"&m&"()As"&b(1)&vbCrLf&_
18. m&"="&b(0)&vbCrLf&_
19. "EndProperty"&vbCrLf&_
20. "PublicPropertyLet"&m&"(ByValvNewValueAs"&b(1)&")"&vbCrLf&_
21. b(0)&"=vNewValue"&vbCrLf&_
22. "EndProperty"&vbCrLf
23. s=s&st
24. Loop
25. Close#1
26. Text2=s
27. EndSub
29. PrivateSubForm_Load()
30. Text1=""
31. Text2=""
32. EndSub