مساعدة في عمل برنامج

تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في عمل برنامج
#1
السلام عليكم اخواني اود عمل برنامج وانا احتاج الى مساعدتكم حفظكم الله لكوني مبتدى قليلا في البرمجة على vb.net 

الله يجازي كل من يعطي فكرة في هذا الصدد وسأضل ادعو له في كل صلاة
سرد الاشكال طويل قليلا لذا فضلت ارفاقه في  المرفقات ملف pdf مع الملفات المطلوبة للبرنامج 


الملفات المرفقة
.pdf   طلب برنامج.pdf (الحجم : 698.06 ك ب / التحميلات : 80)
.rar   ملفات العمل.rar (الحجم : 4.28 م ب / التحميلات : 42)
الرد
تم الشكر بواسطة:
#2
ارجو الرد من الاخوة قريبا على موضوعي
الرد
تم الشكر بواسطة:
#3
اخوي هذا ما اتسع الوقت لعمله بدون جزئية "الملفات الجزئية المراد استخراجها "

قد يكون الكود صعب فهمه
PHP كود :
Imports System.Text.RegularExpressions
Imports System
.ComponentModel

Public Class Form1

    Dim WithEvents backwork 
As New BackgroundWorker
    Dim Status 
As New StatusStrip
    Dim StatusLabel 
= New ToolStripStatusLabel() With {.Text "Ready."}
 
   Dim StatusProgressBar As New ToolStripProgressBar() With {.Style ProgressBarStyle.Marquee, .Visible False, .MarqueeAnimationSpeed 1}

 
   Private Sub Form1_Load(sender As System.ObjectAs System.EventArgsHandles MyBase.Load
        Control
.CheckForIllegalCrossThreadCalls False
        Me
.Status.Items.Add(StatusProgressBar)
 
       Me.Status.Items.Add(StatusLabel)
 
       Me.Controls.Add(Status)
 
       '----------------------
        Me.TextBox1.ReadOnly = True
        Me.TextBox2.ReadOnly = True
    End Sub

    Dim الملف_الرئيسي As String
    Dim مرجع_التقسيم As String

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Using o As New OpenFileDialog
            o.Filter = "Text files (*.txt)|*.txt"
            If o.ShowDialog = Windows.Forms.DialogResult.OK Then
                الملف_الرئيسي = o.FileName
                TextBox1.Text = IO.Path.GetFileName(o.FileName)
            End If
        End Using
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Using o As New OpenFileDialog
            o.Filter = "Text files (*.txt)|*.txt"
            If o.ShowDialog = Windows.Forms.DialogResult.OK Then
                مرجع_التقسيم = o.FileName
                TextBox2.Text = IO.Path.GetFileName(o.FileName)

                Me.Button1.Enabled = False
                Me.Button2.Enabled = False
                Me.TextBox1.Enabled = False
                Me.TextBox2.Enabled = False
                Me.TextBox3.Enabled = False
                Me.TextBox4.Enabled = False
                Me.ListBox1.Items.Clear()

                StatusProgressBar.Visible = True

                backwork.RunWorkerAsync()

            End If
        End Using
    End Sub

    Private Sub backwork_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles backwork.DoWork
        Try
            Dim sourceLines() As String = IO.File.ReadAllLines(الملف_الرئيسي)

            ' 
header ------------------------------
 
           Me.StatusLabel.Text "header working..."
 
           Dim header(1) As String
            Array
.Copy(sourceLines0header07)
 
           Me.StatusLabel.Text "header completed"

 
           ' details -----------------------------
            Me.StatusLabel.Text = "details working..."
            Dim details(sourceLines.Count - 7 - 1) As String
            Array.Copy(sourceLines, 7, details, 0, sourceLines.Count - 7)

            For i = 0 To details.Length - 1
                details(i) = details(i).Substring(9, 4) & " - " & details(i)
            Next
            Array.Sort(details)
            For i = 0 To details.Length - 1
                details(i) = details(i).Substring(7)
            Next
            Me.StatusLabel.Text = "header completed"


            '
splitfiles ---------------------------------------------
 
           Dim files() As String IO.File.ReadAllLines(مرجع_التقسيم)
 
           For Each f As String In files
                If f
.Trim <> "" Then
                    Dim filename 
As String f.Substring(08)
 
                   Me.StatusLabel.Text filename " working..."
 
                   Dim flagStart As Integer Val(f.Substring(94))
 
                   Dim flagEnd As Integer Val(f.Substring(144))
 
                   Dim flagCount As Integer Val(f.Substring(19))
 
                   Dim range Enumerable.Range(flagStartflagEnd flagStart 1)
 
                   Dim RegexPattern As String "^\w(\d{3})\s\d{4}(" String.Join("|"range) & ")\s.+"

 
                   Dim ms As MatchCollection Regex.Matches(String.Join(vbNewLinedetails), RegexPatternRegexOptions.Multiline)
 
                   Dim resultLines = (From x As Match In ms Select x.Value).ToArray

                    If flagCount 
<> ms.Count Then
                        ListBox1
.Items.Add(filename)
 
                   End If

 
                   Dim resultFile As String String.Empty
 
                   resultFile &= "date: xxxxxxxxx" vbNewLine
                    resultFile 
&= "mois:  xxxxxxxxxx " vbNewLine
                    resultFile 
&= "project: xxxxxxxxx" vbNewLine
                    resultFile 
&= "observation: xxxxxxxx" vbNewLine
                    resultFile 
&= "unti: xxxxxxxxxxxxxxx" vbNewLine
                    resultFile 
&= "" vbNewLine
                    resultFile 
&= "" vbNewLine

                    resultFile 
&= String.Join(vbNewLineresultLines) & vbNewLine

                    IO
.File.WriteAllText(filename ".txt"resultFile)
 
                   Me.StatusLabel.Text filename " completed"
 
               End If
 
           Next
            Me
.StatusLabel.Text "Successful."

 
       Catch ex As Exception
            Me
.StatusLabel.Text "Error."
 
           MsgBox(ex.Message)
 
       End Try
 
       StatusProgressBar.Visible False

        Me
.Button1.Enabled True
        Me
.Button2.Enabled True
        Me
.TextBox1.Enabled True
        Me
.TextBox2.Enabled True
        Me
.TextBox3.Enabled True
        Me
.TextBox4.Enabled True

    End Sub


End 
Class 

حاولت اجمع اكواد من المنتدى تساعد
اخي استفد من الاكواد بتعديلها بما يحقق مطلبك
الرد
تم الشكر بواسطة: rabeh.ram , Amir_Alzubidy
#4
جزاك الله الف خير اخي السرور وانعم عليك من خيراته دائما انت متميز ولاتبخل علينا بردودك الله يعطيك ما تتمنى
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يمكن عمل برنامج دورى كرة قدم على الفيجوال abo philomena 2 59 12-08-18, 07:13 PM
آخر رد: elgokr
  ممكن مساعدة في ارسال رسالة بي لغة العربية الزوي 22 308 12-08-18, 04:56 AM
آخر رد: الزوي
  مساعدة في تطبيق هذا الدرس لتحديث اداة WebBrowser ahmedhhh2 5 65 10-08-18, 05:20 PM
آخر رد: ahmedhhh2
  مساعدة في جملة إستعلام نور الهدى الهدى 20 380 09-08-18, 12:09 PM
آخر رد: نور الهدى الهدى
  [سؤال] كود البحث بالتاريخ عقدني هل من مساعدة بكود البحث بالتاريخ vb.net and sql essawq 3 82 04-08-18, 04:01 PM
آخر رد: aljzazy
  مساعدة في حل sqlite add datetime مشكلة annaba2015 9 93 04-08-18, 08:55 AM
آخر رد: elgokr
  [VB.NET] ممكن مساعدة في كتابة كود يمنعني من كتابة تاريخ يكون اصغر من اخر تاريخ أدخلته في الدات annaba2015 3 80 28-07-18, 03:17 AM
آخر رد: elgokr
  طلب مساعدة واجهتني مشكلة في واجهة تسجيل الدخلو للبرنامج فراس الغزي 4 87 26-07-18, 10:02 PM
آخر رد: aljzazy
  ممكن مساعدة طباعة دفاتر صكوك مصرفية الزوي 12 192 22-07-18, 06:44 AM
آخر رد: elgokr
  مساعدة من فضلكم ! ! hichem1 1 89 17-07-18, 04:35 AM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم