VB.NET怎么輸出指定字符串文本文件

Dim strFilePath As String =SaveFileDialog1.FileName

成都創(chuàng)新互聯(lián)公司一直秉承“誠(chéng)信做人，踏實(shí)做事”的原則，不欺瞞客戶(hù)，是我們最起碼的底線(xiàn)！ 以服務(wù)為基礎(chǔ)，以質(zhì)量求生存，以技術(shù)求發(fā)展，成交一個(gè)客戶(hù)多一個(gè)朋友！為您提供網(wǎng)站設(shè)計(jì)制作、成都做網(wǎng)站、成都網(wǎng)頁(yè)設(shè)計(jì)、小程序開(kāi)發(fā)、成都網(wǎng)站開(kāi)發(fā)、成都網(wǎng)站制作、成都軟件開(kāi)發(fā)、重慶APP開(kāi)發(fā)是成都本地專(zhuān)業(yè)的網(wǎng)站建設(shè)和網(wǎng)站設(shè)計(jì)公司，等你一起來(lái)見(jiàn)證！

Dim sw As StreamWriter = New StreamWriter（strFilePath， True） 'true是指以追加的方式打開(kāi)指定文件

For i = 0 To j

temp = i.ToString

sw.WriteLine（temp）

sw.Flush（）

Next

sw.Close（）

sw = Nothing

vb.net 導(dǎo)出PDF

利用DataWindow.net在 vb.net 下導(dǎo)出PDF格式文件

利用datawindow.net，導(dǎo)出PDF文件，實(shí)現(xiàn)前提：

1.安裝Acrobat Distiller虛擬打印機(jī),注意要用datawindow.net提供的打印驅(qū)動(dòng)，在c:\program files\sybase\datawindow.net2.0\driver中,在文章最后，我會(huì)提供一個(gè)靜態(tài)安裝虛擬打印機(jī)的批處理文件，方便安裝。

2.安裝Ghostscript 7.05 ，在網(wǎng)上找,免費(fèi)的。

3.導(dǎo)出PDF文件前，一要指定虛擬打印機(jī)名，其次導(dǎo)出格式為PDF（Export.PDF.Method=Distill!）,另外還要指定 PDF.Distill.CustomPostScript=Yes。

具體代碼如下：

''' summary

''' 導(dǎo)出文件

''' /summary

''' param name="sender"/param

''' param name="e"/param

''' remarks/remarks

Private Sub btnExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExport.Click

Try

Dim strFilename, strPrinter As String

Dim saveDg As New SaveFileDialog

strPrinter = Me.dwPrint.Describe("DataWindow.Print.PrinterName")

saveDg.FileName = Me.dwPrint.Tag.ToString

saveDg.Filter = "Pdf文件|*.pdf|Excel文件|*.xls|所有文件|*.*"

If saveDg.ShowDialog = Windows.Forms.DialogResult.OK Then

strFilename = saveDg.FileName

If strFilename.IndexOf(".pdf") 0 Then

Me.dwPrint.Modify("DataWindow.Print.PrinterName='Acrobat Distiller'")

Me.dwPrint.Modify("DataWindow.Export.PDF.Method=Distill!")

Me.dwPrint.Modify("DataWindow.Export.PDF.Distill.CustomPostScript=Yes")

Me.dwPrint.SaveAs(strFilename, Sybase.DataWindow.FileSaveAsType.Pdf, True)

ElseIf strFilename.IndexOf(".xls") 0 Then

Me.dwPrint.SaveAs(strFilename, Sybase.DataWindow.FileSaveAsType.Excel, True)

End If

Me.dwPrint.Modify("DataWindow.Print.PrinterName='" + strPrinter + "'")

MessageBox.Show("導(dǎo)出成功!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

Catch ex As Exception

MessageBox.Show(ex.Message, "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

End Sub

4 批處理文件（實(shí)現(xiàn)靜默安裝）

用VB.NET編一個(gè)窗體程序 將程序結(jié)果輸出為文檔格式

寫(xiě)入txt文檔的方法，需要一個(gè)參數(shù)作為寫(xiě)入的字符串：

Private Sub WriteDoc(ByVal wstring As String)

Using sw As New StreamWriter(Application.StartupPath "\output.txt", True)

sw.Write(wstring)

End Using

End Sub

vb.net控制臺(tái)程序運(yùn)行后，怎樣將輸出結(jié)果生成文件

首先執(zhí)行Sub Main()

①定義兩個(gè)變量a=45 b=18

②將a和b作為sum過(guò)程的兩個(gè)參數(shù)x=45(按值傳遞)，y=18(按地址傳遞，將在過(guò)程中改變b的初始值)

③xy滿(mǎn)足條件，將 x-y=45-18=27 賦值給x ；將 x+y=27+18=45 賦值給y，此時(shí)改變了b值為45.

④輸出x的值27 y的值45

⑤輸出a的值45 b的值45

分享文章：vb.net輸出文件,vbnet生成dll文件
文章來(lái)源：http://chinadenli.net/article2/dsgijic.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站排名、企業(yè)建站、關(guān)鍵詞優(yōu)化、自適應(yīng)網(wǎng)站、外貿(mào)建站、品牌網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀(guān)點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話(huà)：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)