重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
第一个问题有个简单的方法,把字符串变量赋值到一个textbox里面,利用textbox.lines实现。如:
创新互联建站坚持“要么做到,要么别承诺”的工作理念,服务领域包括:网站建设、做网站、企业官网、英文网站、手机端网站、网站推广等服务,满足客户于互联网时代的随州网站设计、移动媒体设计的需求,帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴!
dim a as string ="hh12345" vbcrlf "qdq123" vbcrlf "ddd244" vbcrlf "whw266" ’定义变量
textbox1.text=a ‘赋值
message.show(textbox1.lines(2).tostring) ‘显示第三行内容。
第二个问题结合第一个问题,用循环逐行查找,就可知道字符串第一次出现在哪行。
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
给你一个VB2010读写文件的例子吧
Dim name As String = ""
Dim age As Integer
name = InputBox("请输入姓名")
age = InputBox("请输入年龄")
FileOpen(1, "d:\信息.txt", OpenMode.Append)
WriteLine(1, name, age)
FileClose(1)
FileOpen(1, "d:\信息.txt", OpenMode.Input)
Dim h As String
Dim j As String
Dim f As String
f = ""
h = ""
j = ""
While EOF(1) = False
f = LineInput(1) vbCrLf f
End While
FileClose(1)
MsgBox("姓名" " " "年龄" vbCrLf f)
可以把某个列为空就当做是空行,你连接字符串是hdr=no,也就是第一行不作为列标题,那么就是用的默认的列标题,F1,F2.。。这些。
比如,第一列的某行为空的话就当做是空行,你可以加这个条件 where len([F1]) 0
无法读取指定的某一行,只能通过对整个文本框里的字符串,采用字符串函数等方法,分离获得某一行的内容。
读500万行的txt文件190M左右,提取每行中特定字符,写入7个文件,单个文件130万行,13M左右。一共用时20秒左右。
用System.IO.StreamReader System.IO.StreamWriter。