(28-07-16, 01:01 AM)الوادي كتب : لم توضح وضع الأرقام :2 و:4 هل سيتم تجاهلها ؟
وأيضا توضيح الأدوات اللي على الفورم مثل IDQSO
وطلبت منك أن تذكر الأعمدة المطلوبة من ناحية عددها واسماءها وما يأخذ من النص اللي في الملف ووضعه فيها.
وطلبت منك أن ترسم صورة على شكل جدول تمثيلي
السلام عليك يا مرحب شكرا علي الرد
إقتباس :لم توضح وضع الأرقام :2 و:4 هل سيتم تجاهلها ؟
بخصوص ال 4 و ال2
تعني الكلمه المكتوبه في هذا السطر كم عدد حروفها
مثلا
كود :
<call:6>EA5DNOالكلمه اللي في خانت ال call تحتوي علي 6 حروف EA5DNO
مثال ثاي
كود :
<call:5>s51aaالرقم الان 5 والكلمه من خمس حروف وتفس الشي في
كود :
<rst_sent:2>59الرقم نتجاهله في التنزيل في قاعده البيانات بارك الله فيك
إقتباس :وأيضا توضيح الأدوات اللي على الفورم مثل IDQSO
IDQSO هو تعريف لخانت ال ID في قاعدة البيانات
إقتباس :وطلبت منك أن تذكر الأعمدة المطلوبة من ناحية عددها واسماءها وما يأخذ من النص اللي في الملف ووضعه فيها.
وطلبت منك أن ترسم صورة على شكل جدول تمثيلي
بخصوص الاعمدة انا فهمت اعمدة قاعدة البانات عملتها في ملف
Datatest.mdb
Datatest\Datatest\bin\Debug\Datatest.mdb
شكرا من جديد علي مساعدتي بارك الله فيك
(28-07-16, 02:51 AM)الوادي كتب : هذا تعديل للكود جربه ورد خبر
PHP كود :
Imports System.Data.OleDb
Imports System.Text.RegularExpressions
Public Class WORK
Private cnn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Application.StartupPath & "\Datatest.mdb")
Private dtADI As New DataTable
Private da As New OleDb.OleDbDataAdapter("SELECT * FROM [DTQSO] ORDER BY [ID]", cnn)
Dim c As New OleDbCommandBuilder(da)
Private Sub Frmmain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
RefreshData()
End Sub
Private Sub RefreshData()
dtADI.Clear()
da.Fill(dtADI)
Me.dgvData.DataSource = dtADI
End Sub
Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
If Me.IDQSO.Text.Trim = "" Then
dtADI.Rows.Add(Nothing, Me.opcall.Text.Trim, Me.rst_sent.Text.Trim)
Else
Dim row As DataRow = (From r As DataRow In dtADI.Rows Where r.Item("ID") = Me.IDQSO.Text.Trim).First
row.Item("opcall") = Me.opcall.Text
End If
da.Update(dtADI)
RefreshData()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim fd As OpenFileDialog = New OpenFileDialog()
fd.Filter = "ADI files (*.ADI)|*.ADI"
If fd.ShowDialog() = DialogResult.OK Then
Me.lblAttach.Text = fd.FileName
Dim txt As String = IO.File.ReadAllText(fd.FileName)
Dim ms As MatchCollection = Regex.Matches(txt, "(?=<CALL).+?(<EOR>)", RegexOptions.IgnoreCase)
For Each m As Match In ms
Dim colCALL As String = Regex.Match(m.Value, "(?<=<CALL.+?>).+?(?=<)", RegexOptions.IgnoreCase).Value
Dim colRST_SENT As String = Regex.Match(m.Value, "(?<=<RST_SENT.+?>).+?(?=<)", RegexOptions.IgnoreCase).Value
dtADI.Rows.Add(Nothing, colCALL.Trim, colRST_SENT.Trim)
Next
Dim c As New OleDbCommandBuilder(da)
da.Update(dtADI)
RefreshData()
End If
End Sub
End Class
بارك الله فيك الان بجرب الكود شكرا
