兄弟，打扰一下，vb 将txt文本内容按格式导入到sql server2005数据库中？
数据库中表字段为 时间 标题 内容2025-03-01 13:40:24
open "c:\1.txt" for input as #1
open "c:\中间结果.txt" for append as #2
s=""
do
if eof(1) then exit do
line input #1,a
if instr(a,"：")>0 then
s=s & a & vbtab
else
if a=" （完）" then
print #2,s
s=""
else
s=s & a
endif
endif
loop
close #1
close #2
以上中间结果.txt生成后直接导入到数据库里就OK了。
k是什么值？
上面的代码生成的是以Tab分隔的文本。
你可以用SQLserver2005的文本导入工具导入这个文本文件到数据表里。
代码运行出错
你这段代码有问题
这个代码需要你修改一下、
第一、文件名部分要修改为你的文本文件的名字（路径也需要修改）
第二、instr(a,"：")>0 这个部分需要根据你的文本文件的内容修改为全角：或半角:
第三、a=" （完）" 这个部分需要根据你的文本文件的内容修改为相应的结束行标记、也就是”完”这个字前面是全角空格还是半角空格、有多少个、前后的括号也要符合。
你这个代码，是中间一截的，能不能写全了，你再测试下！
我这个代码是手工打上去的。前后的过程名Sub 文本文件加工() 以及结束过程的 End Sub 就自己加上去就OK了。
作用是打开某个文本文档后把多个行拼成一行（一个记录）、每个字段用Tab接起来的。
加工好了以后需要打开SQLServer手工导入加工后的文本文件的。
需要修改的地方请见上面回答。
麻烦你帮我写写 从中间结果插入数据库的代码？拜托
2025-03-01 03:21:52
高手，请写写代码
代码就不写了，也不复杂的事，只是正则那有点复杂，我给你个我修改的正则调用函数，你自己写吧。可以检测是否有指定正则字串、替换、提取，没有详细的解释，自己理解吧。
'============================
'正则表达式
'调用格式 RegExp(源数据 As String, 正则式 As String, 标志位 As String = gimstr, 替换数据 As String, 匹配序数 As Integer)
'g 全局搜索 i 区分大小写 m 支持换行符 s 匹配子项 t 匹配测试 r 匹配替换
'例如 MsgBox RegExp("IS1 is2 IS3 is4", "is", "gir", "是")
'============================
Private Function RegExp(ByVal regString$, ByVal regPattern$, Optional regMark$ = "gims", Optional regRepString$, Optional regIndex%) As String
If ((regString = "") Or (regPattern = "")) Then RegExp = "": Debug.Print "数据不能为空": Exit Function
Dim RetStr As String, objRegExp As Object, colMatch, colMatches, i As Integer
'Create objects
Set objRegExp = CreateObject("VBScript.RegExp")
' 正则式
objRegExp.Pattern = regPattern
' 是否区分大小写
2025-03-01 04:14:24
好的，，我发给你了 ，你查收下
2025-03-01 15:32:42
求代码
2025-03-01 03:35:27
代码？
