vb点虐 文件分割 vb菜单分割条
vb点虐 分割字符串 文件操作 数据库
代码不给你贴了，我也没有
网站建设哪家好，找创新互联！专注于网页设计、网站建设、微信开发、小程序定制开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了交城免费建站欢迎大家使用！
不过看你意思其实是很容易实现的
首先你要把DB。text里的内容读出来可以放到数组里面
这样数组里面的具体每个值都是可读的
根据之来判断写出SQL语句就是了
数组你要用循环判断的方法，最后生成一条SQL语句就可以了
意思能明白不？
VB.NET 字串用换行分割
假设你要分割的字符串是string1的话
分割代码就是：
dim s as string=strings.split(string1,vbcrlf)
这样s就是一个阵列了。s(0)是第一段内容，s(1)是第二段内容，以此类推。~~
googles8 的写法也对的。不过我的代码省去了声明的一行。只用一行就好了。
VB点虐 中任何提取文本文件中的逗号分格数据?
用数组呗。我是用VB6的，不过你会.NET也肯定能看懂。
不是文本文件么？先用Line Input读每行存入数组。再把每行数据用你的"，"分割，就可以查询了。我写个简单的例子：
'搜索函数，用法Search(标头，序号)，返回数据.
Private Function Search(ByVal Section As String, ByVal Index As Integer) As String
Dim fNum%, Lines%, temp%, Str As String
ReDim Data(0)
fNum = FreeFile()
If Dir("C:\\1.txt") = "" Then Exit Function
'文件路径和文件名你自己改
Open "C:\\1.txt" For Input As #fNum
Do While Not EOF(fNum)
Lines = Lines + 1
'行数
Line Input #fNum, Str
ReDim Preserve Data(Lines)
Data(Lines) = Str
Loop
Close #fNum
If Lines 0 Then
Dim tmp() As String
For temp = 1 To UBound(Data)
tmp = Split(Data(temp), "，")
'分割
If tmp(0) = Section Then
Search = tmp(Index - 1)
'因为从0开始所以-1
Exit Function
End If
Next
End If
End Function
比如你要“gc“开头的第5个数据，就用Search("gc",5)即可返回45。
VB点虐 字符串分割的问题
‘第一种
Dim a As String = IO.Path.GetDirectoryName("D:\项目\0913 \test.text") "\" IO.Path.GetFileNameWithoutExtension("D:\项目\0913 \test.text")
’第二种
Dim a1() As String = Split("D:\项目\0913 \test.text", ".") '以.分割内容
'a1(0)为需要获取的字符串，路径中不能存在两个点或以上
‘第三种
Dim a2 As String = "D:\项目\0913 \test.text"
a2 = a2.Substring(0, a2.Length - 5) '扩展名长度固定，路径中可以存在多个点
' a2 = a2.Substring(0, InStr(a2, ".") - 1) '不知扩展名的长度，路径中不能存在多个点
’如果必要，建议用第一种，不受任何限制
名称栏目：vb点虐 文件分割 vb菜单分割条
浏览路径：http://6mz.cn/article/ddigegh.html