desprating!!!!!! 斑竹还有各位高手们请帮帮我!!

scotish_bagpipe 2006-06-14 11:21:50
以下这个程序是关于在已有的文件夹里(new folder)的所有.txt文件的数据传到数据库之中,
每个txtfile的数据特征如下:
761526|ORIGINAL|2006-06-12|14:57:34|2T268765|26067|NO REG|CH276|STAGED|Order number 2T268765-1|
每个数据用"|"隔开。
传输完的文件之后转移到新的文件夹叫做"post archive" 我已经实现了运行一次就有一个文件的数据被读入数据库之中并且改文件夹的txt文件转移到新的文件夹(post archive)里面
但是我现在的程序不想让它有任何按钮,也就是说要是程序让它随windows一直运行,随时检测new folder里面有没有新的txt文件进来。如果有,就读取数据到数据库之中。如果没有就不运行。所以,“new folder”的文件夹必须随时保持更新。请各位高手们详细解答。可以的话帮我添加一下代码或者注释,真的非常感谢了。。。
以下是程序的代码,但是现在只是每运行一次只有一条记录被写入数据库,同时一个new folder的文本文件被转移到\“post archive\”的文件夹中,所以请帮忙添加可以自动不断的运行。使不断的数据添加到数据库中。



Imports System
Imports System.IO
Imports System.Text
Imports System.Data
Imports System.Timers.Timer
Imports System.Threading
Imports System.Threading.Timer
Imports System.Data.SqlClient
Imports Microsoft.Win32
Imports Microsoft.VisualBasic





Public Class Form1



Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the '_zhen_weng_DatabaseDataSet.Load_Id' table. You can move, or remove it, as needed.
Me.Load_IdTableAdapter.Fill(Me._zhen_weng_DatabaseDataSet.Load_Id)
'TODO: This line of code loads data into the '_zhen_weng_DatabaseDataSet.Load_Id' table. You can move, or remove it, as needed.



Dim strSplit() As String


Dim streamreaderobj As StreamReader

Dim linecont As String

Dim FileNewPath As String = "Y:\StoraEnso\ftp_in\load_id\translated\Post Archive\"
Dim destFileName As String = "Y:\StoraEnso\ftp_in\load_id\translated\Moved\"
Dim destFileName1 As String
Dim destFilePath As String
Dim di As New IO.DirectoryInfo("Y:\StoraEnso\ftp_in\load_id\translated\New Folder\")
Dim diar1 As IO.FileInfo() = di.GetFiles()
Dim dra As IO.FileInfo
Dim draconvert As String
Dim dra2 As String
Dim diconvert As String

Dim newLoadIDRow As DataRow = _zhen_weng_DatabaseDataSet.Tables("Load_Id").NewRow()
Dim p As Process





For Each dra In diar1
draconvert = System.Convert.ToString(dra)
diconvert = System.Convert.ToString(di)
dra2 = diconvert + draconvert

'ListBox1.Items.Add(dra)



Do

Try
If Dir("dra2") <> "" Then


Return


ElseIf Dir("dra2") = "" Then


streamreaderobj = File.OpenText(dra2)


Do

linecont = streamreaderobj.ReadLine()

If (linecont <> "") Then

strSplit = Split(linecont, "|")

End If

Loop Until linecont = ""


newLoadIDRow("Message_Number") = strSplit(0)
newLoadIDRow("Message_Status") = strSplit(1)
newLoadIDRow("Message_Date") = strSplit(2)
newLoadIDRow("Message_Time") = strSplit(3)
newLoadIDRow("CH_Reference") = strSplit(4)
newLoadIDRow("Load_ID_Reference") = strSplit(5)
newLoadIDRow("Lorry_ID") = strSplit(6)
newLoadIDRow("Trailer_ID") = strSplit(7)
newLoadIDRow("Load_Status") = strSplit(8)
newLoadIDRow("Additional_information") = strSplit(9)





streamreaderobj.Close()


_zhen_weng_DatabaseDataSet.Tables("Load_Id").Rows.Add(newLoadIDRow)

End If


Catch ex As Exception

End Try


Try
Me.Validate()
Me.LoadIdBindingSource.EndEdit()
Me.Load_IdTableAdapter.Update(Me._zhen_weng_DatabaseDataSet.Load_Id)
'MsgBox("Update successful")

Catch ex As Exception
MsgBox("Update failed")
End Try
Loop Until File.Exists(draconvert) = False



Next



destFileName1 = destFileName + draconvert


Try
If File.Exists(destFileName1) = False Then
File.Move(dra2, destFileName1)
End If

Catch ex As Exception

End Try



destFilePath = FileNewPath + draconvert
Try
If File.Exists(destFilePath) = False Then

File.Move(destFileName1, destFilePath)
End If
Catch ex As Exception

End Try
end sub
end class

...全文
72 回复 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复
注意事项:
主要转换数据仅包含,用户基本数据、版区信息数据(无法转换斑竹数据)、主题信息数据、帖子信息数据、附件信息数据(可能有丢失现象)、主题收藏数据(phpbb2.0.18没有主题收藏这个功能).
转换程序只是尽可能的去转换,但是不保证转换后的数据正确且无丢失现象.
版区 : 本程序仅能转换二级栏目,原 phpbb 2.0+ 二级以下论坛将统一作为独立的板块进行转换,转换后可能需要您到 Discuz!4.0.0 中进行设置.
附件 : 将原 phpbb 2.0+ 中的附件目录改名为 phpbbfile 然后移动到 Discuz!4.0.0 论坛 ./attachments/phpbbfile 目录中。
头像:将原来的所有头像文件都放到./images/avatar目录下面,否则会员头像无法显示
如果您是自己使用本程序进行转换的,Discuz!官方不提供本程序转换的技术支持!!

使用方法:
首先全新安装 Discuz!4.0.0 程序(可以与 phpbb 2.0+ 数据不在同一个数据库中).
然后将本程序 phpbb2d4.php 上传到 Discuz!4.0.0 目录下,在浏览器运行.
转换过程是自动的(如果不出现错误)!您不需干预,等待出现转换全部成功的提示.

转换后需要做的是:
使用原论坛的管理员账号进行登陆。进入“系统设置” “Discuz! 工具”=>“更新论坛统计”将几个统计更新一下就可以了

phpbb2d4.zip 是在phpbb2.0.18下转换时用的,修正了phpbb_2_0.zip中的几个笔误。

16,722

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧