国产成人毛片视频|星空传媒久草视频|欧美激情草久视频|久久久久女女|久操超碰在线播放|亚洲强奸一区二区|五月天丁香社区在线|色婷婷成人丁香网|午夜欧美6666|纯肉无码91视频

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”定義輸出文件的內(nèi)容

strouttmpfile=應(yīng)用程序路徑& “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“關(guān)閉文件

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

1。TXT

保存文件

打印#1,AA“寫入內(nèi)容

關(guān)閉#1”關(guān)閉文件