189 8069 5689

vb.net输出文件,vbnet生成dll文件

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

Dim strFilePath As String =SaveFileDialog1.FileName

成都创新互联公司一直秉承“诚信做人,踏实做事”的原则,不欺瞒客户,是我们最起码的底线! 以服务为基础,以质量求生存,以技术求发展,成交一个客户多一个朋友!为您提供网站设计制作、成都做网站、成都网页设计、小程序开发、成都网站开发、成都网站制作、成都软件开发、重庆APP开发是成都本地专业的网站建设和网站设计公司,等你一起来见证!

Dim sw As StreamWriter = New StreamWriter(strFilePath, True) 'true是指以追加的方式打开指定文件

For i = 0 To j

temp = i.ToString

sw.WriteLine(temp)

sw.Flush()

Next

sw.Close()

sw = Nothing

vb.net 导出PDF

利用DataWindow.net在 vb.net 下导出PDF格式文件

利用datawindow.net,导出PDF文件,实现前提:

1.安装Acrobat Distiller虚拟打印机,注意要用datawindow.net提供的打印驱动,在c:\program files\sybase\datawindow.net2.0\driver中,在文章最后,我会提供一个静态安装虚拟打印机的批处理文件,方便安装。

2.安装Ghostscript 7.05 ,在网上找,免费的。

3.导出PDF文件前,一要指定虚拟打印机名,其次导出格式为PDF(Export.PDF.Method=Distill!),另外还要指定 PDF.Distill.CustomPostScript=Yes。

具体代码如下:

''' summary

''' 导出文件

''' /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("导出成功!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

Catch ex As Exception

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

End Try

End Sub

4 批处理文件(实现静默安装)

用VB.NET编一个窗体程序 将程序结果输出为文档格式

写入txt文档的方法,需要一个参数作为写入的字符串:

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控制台程序运行后,怎样将输出结果生成文件

首先执行Sub Main()

①定义两个变量a=45 b=18

②将a和b作为sum过程的两个参数x=45(按值传递),y=18(按地址传递,将在过程中改变b的初始值)

③xy满足条件,将 x-y=45-18=27 赋值给x ;将 x+y=27+18=45 赋值给y,此时改变了b值为45.

④输出x的值27 y的值45

⑤输出a的值45 b的值45


本文名称:vb.net输出文件,vbnet生成dll文件
网址分享:http://jkwzsj.com/article/dsgijic.html

其他资讯