大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Dim str_File_1 As String = My.Computer.FileSystem.ReadAllText("c:\第一个文件", System.Text.Encoding.ASCII) '根据实际的编码读第一个文件
成都创新互联-专业网站定制、快速模板网站建设、高性价比南乐网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式南乐网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖南乐地区。费用合理售后完善,十载实体公司更值得信赖。
Dim str_File_2 As String = My.Computer.FileSystem.ReadAllText("c:\第二个文件", System.Text.Encoding.ASCII) '根据实际的编码读第二个文件
'下面是一次性写入
My.Computer.FileSystem.WriteAllText("c:\第一个文件", str_File_2, True, System.Text.Encoding.ASCII)
'下面是一行一行写入
Dim str_Sp() As String = str_File_2.Split(vbCrLf)
For i = 0 To str_Sp.LongLength - 1
My.Computer.FileSystem.WriteAllText("c:\第一个文件", str_Sp(i) vbCrLf, True, System.Text.Encoding.ASCII)
Next
.net应该提供了此类函数。如C#就有File.AppendAllText(filename,string)用于追加内容,File.ReadAllLine(filename)用于读取多行。
1、对于文件的操作vb提供了open语句、print #语句、input #语句等语句来处理文件。
2、读取多行文本,可以使用Line input #语句,一行行读取,再连接在一起,这种方法对大一点txt文件效率不高。
3、下面提供一个高效率、一次性读入所有文本的vb6示例:
Private Sub Command1_Click()
Dim r
Open "d:\readme.txt" For Binary As #1
r = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
Debug.Print r
End Sub
a = ""
TextBox1.Text =""
FileOpen(1, Application.StartupPath() "\file\t1.txt", OpenMode.Input)
Do While Not EOF(1)
Input(1, a)
TextBox1.Text =TextBox1.Text a vbcrlf
Loop
一次性读取
a=File.ReadAllText(Application.StartupPath() "\file\t1.txt")
比如:
Private Sub Document_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
e.Graphics.DrawString(str0, New Font("Arial", 14, FontStyle.Regular), Brushes.Black, 50, 50)
e.Graphics.DrawString(A1, New Font("Arial", 10, FontStyle.Regular), Brushes.Black,50, 100)
e.Graphics.DrawString(A2, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 300,100)
e.Graphics.DrawString(A3, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 800,100)
也就是分次用不同坐标和不同的字体来打印各变量。画线用:
e.Graphics.DrawLine(BlackPen, x1, y1, x2, y2)。
具体坐标数值自己用尺量出,再换算。
Dim mycon As New SqlConnection(connstrs)
Dim sqlStr As String = "SELECT * FROM [Column] FROM [Table]"
Dim cmd As New SqlCommand(sqlStr, mycon)
Dim reader = cmd.ExecuteReader()
Dim i As Integer = 1
While reader.Read()
Dim txt As New TextBox()
txt.Name = "txt" + i
txt.Size = New Size(100, 20) '文本框大小
txt.Location = New Point(50, i * 20 + 20)'left:50 top:随便写的,自己看着调
txt.Text = reader.GetValue(0).ToString()
Me.Controls.Add(txt) 'Me 可以改为你要添加上去的对象
End While
'未经过运行,自己调试看看能否OK