卖逼视频免费看片|狼人就干网中文字慕|成人av影院导航|人妻少妇精品无码专区二区妖婧|亚洲丝袜视频玖玖|一区二区免费中文|日本高清无码一区|国产91无码小说|国产黄片子视频91sese日韩|免费高清无码成人网站入口

vb打開txt文件 vb怎么把數(shù)據(jù)保存到文件里?

vb怎么把數(shù)據(jù)保存到文件里?Private Sub cmdSave Click()“”另存為文本文件dim filenumberdim strouttmpfile as string”定義輸出文件的名

vb怎么把數(shù)據(jù)保存到文件里?

Private Sub cmdSave Click()

“”另存為文本文件

dim filenumber

dim strouttmpfile as string”定義輸出文件的名稱

dim strPrintTXT as string”定義輸出文件的內容

strouttmpfile=應用程序路徑& “mytxt.txt文件“

strPrinteTxt=text1.text& ”| “&;text2.text

打開”Error GoTo Err2

FileNumber=FreeFileOpen strouttmpfile for append as#FileNumber

print#FileNumber,strprintetxt

close#FileNumber

end sub

方法1:Open “C:1。TXT“輸出為#1”C:1#1“關閉文件

方法2:dim AA as stringaa=text1&;text2&Text3&。。。。。?!皩⒍鄠€文本框內容合并到變量中

1。TXT

保存文件

打印#1,AA“寫入內容

關閉#1”關閉文件