سلام!
اگه vb.net خواستي يك كد ساده داريم !
Dim sEDI As String
Dim srReader As System.IO.StreamReader = New System.IO.StreamReader("آدرس فايل", False)
Dim theData() As String
sEDI = srReader.ReadToEnd
theData = Split(sEDI, "~")
حالا thdata(0) خط اوله و به همين ترتيب تا خط آخر كه ميشه خيلي راحت ريختش داخل ديتابيس
قربون همه - حميد