+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : أريد أن ابحث في PDF داخل برنامجي. (/showthread.php?tid=22459)
أريد أن ابحث في PDF داخل برنامجي. - أبووسم - 08-11-17
السلام عليكم و رحمة الله وبركاته
تجدون في المرفقات برنامج ارجوا التعديل عليه ليبحث
رفعت الملف اكثر من مرة لم تنجح العملية
RE: أريد عن ابحث PDF داخل برنامجي. - أبووسم - 10-11-17
للمساعدة لو تكرمتوا
RE: أريد عن ابحث PDF داخل برنامجي. - silverlight - 10-11-17
راجع الموضوع هذا قد يفيدك
اللينك
RE: أريد عن ابحث PDF داخل برنامجي. - a.ahmed - 10-11-17
PHP كود :
Public Class Form1
Private PDF As String = ".\PDF\\"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox6.Text = "" Then
MessageBox.Show("لم تكتب شيئا للبحث عنه ")
Return
End If
Dim fn As String = TextBox6.Text
If Not fn.ToLower.EndsWith(".pdf") Then fn &= ".pdf"
fn = PDF & fn
If IO.File.Exists(fn) Then
Process.Start(fn)
Else
MsgBox("Not found")
End If
End Sub
End Class
Updated
RE: أريد عن ابحث PDF داخل برنامجي. - أبووسم - 11-11-17
(10-11-17, 05:14 PM)a.ahmed كتب :PHP كود :
Public Class Form1
Private PDF As String = ".\PDF\\"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox6.Text = "" Then
MessageBox.Show("لم تكتب شيئا للبحث عنه ")
Return
End If
If Not TextBox6.Text.ToLower.EndsWith(".pdf") Then TextBox6.Text &= ".pdf"
If IO.File.Exists(PDF & TextBox6.Text) Then
MsgBox("Exist")
Else
MsgBox("Not found")
End If
End Sub
End Class
اشكرك اخي الكريم على الجهد ، ولكن أريده أن يفتح لي ملف الـPDF
والكود لم ينجح في ذلك
RE: أريد أن ابحث في PDF داخل برنامجي. - silverlight - 11-11-17
أنت تضع الملفات في فهرس اسمه PDF تحت فهرس المشروع
يمكنك استخدام الدالة التالية للحصول علي الملفات الموجودة تحت الفهرس
PHP كود :
Private Function SearchFiles(folderName As String, pattern As String, recursive As Boolean, ignoreEx As Boolean) As List(Of String)
Dim result As List(Of String) = New List(Of String)()
Dim actionParams As Action(Of List(Of String), String, String, Boolean, Boolean)
actionParams = Sub(list, folder, searchPattern, repeatSearch, ignore)
Try
Dim fileNames As String() = Nothing
If searchPattern IsNot Nothing Then
fileNames = IO.Directory.GetFiles(folder, searchPattern)
Else
fileNames = IO.Directory.GetFiles(folder)
End If
list.AddRange(fileNames)
Catch ex As Exception
If Not ignore Then
Throw
End If
End Try
If repeatSearch Then
Dim folders As String() = IO.Directory.GetDirectories(folder)
For i As Integer = 0 To folders.Length - 1
actionParams(list, folders(i), searchPattern, repeatSearch, ignore)
Next
End If
End Sub
actionParams(result, folderName, pattern, recursive, ignoreEx)
Return result
End Function
ثم و للحصول علي كل الملفات في مصفوفة تستخدم الكود بالشكل التالي
PHP كود :
Dim path As String = Application.StartupPath + "\PDF"
Dim files As List(Of String) = SearchFiles(path, "*.pdf", False, False)
فقط عليك أن تبحث عن الملف داحل المصفوفة
يجب عليك مراعاة أن المصفوفة تعود باسم الملف شاملا المسار
RE: أريد أن ابحث في PDF داخل برنامجي. - a.ahmed - 11-11-17
PHP كود :
Public Class Form1
Private PDF As String = ".\PDF\\"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox6.Text = "" Then
MessageBox.Show("لم تكتب شيئا للبحث عنه ")
Return
End If
Dim fn As String = TextBox6.Text
If Not fn.ToLower.EndsWith(".pdf") Then fn &= ".pdf"
fn = PDF & fn
If IO.File.Exists(fn) Then
Process.Start(fn)
Else
MsgBox("Not found")
End If
End Sub
End Class
RE: أريد أن ابحث في PDF داخل برنامجي. - أبووسم - 11-11-17
بارك الله فيك هذا هو المطلوب
اشكرك و جزاك الله خير