۰۱-مرداد-۱۳۸۸, ۱۹:۱۴:۳۴
۰۱-مرداد-۱۳۸۸, ۱۹:۳۷:۵۰
منظورت از برنامه ای که با XML نوشتيم چيه?
مگه با XML هم ميشه برنامه نوشت?
XML يه بانک داده هاست. اگه منظورت خوندن اطلاعات از فايل XML هستش که آره ميشه
اینم نمونه
http://iranvig.com/modules.php?name=News...e&sid=1766
مگه با XML هم ميشه برنامه نوشت?
XML يه بانک داده هاست. اگه منظورت خوندن اطلاعات از فايل XML هستش که آره ميشه
اینم نمونه
http://iranvig.com/modules.php?name=News...e&sid=1766
۰۱-مرداد-۱۳۸۸, ۱۹:۴۸:۲۵
ازت ممنونم.
راستش من می خوام یک کاری کنم که به من پیشنهاد شد از کدهای xml استفاده کنم.
اون کار هم اینه که می خوام با استفاده از VB6 یک برنامه بنویسم که بتونه یک کلمه را از داخل متون یکسری صفحات html جستجو کنه و نتایج اون هم برای ما نمایش بده مثلا به این شکل:
راستش من می خوام یک کاری کنم که به من پیشنهاد شد از کدهای xml استفاده کنم.
اون کار هم اینه که می خوام با استفاده از VB6 یک برنامه بنویسم که بتونه یک کلمه را از داخل متون یکسری صفحات html جستجو کنه و نتایج اون هم برای ما نمایش بده مثلا به این شکل:
نقل قول: کلمه "انسان" در صفحات 2.html و 3.html قرار دارداگه راه حلی به نظرتون میرسه بفرمایید
۰۱-مرداد-۱۳۸۸, ۲۰:۳۶:۱۸
این هم از کد
نيازی به xml نيست عزيز البته تا اونجا که من سوادم قد ميده
اگه مشکلی داشتی بگو
نيازی به xml نيست عزيز البته تا اونجا که من سوادم قد ميده
اگه مشکلی داشتی بگو
کد:
'Add a Command
'Add a listBox
'Ass a WebBrowser
'Add 2 Textboxes named "txtSearch" and "txtResult"
'Set txtResult as MultiLine
Private ReadyLoad As Boolean
Private Sub Command1_Click()
SearchFor
End Sub
Private Function SearchFor()
Dim x As Integer
For x = 0 To List1.ListCount
WebBrowser1.Navigate List1.List(x)
ReadyLoad = False
Do
DoEvents
Loop Until ReadyLoad
If WebPageContains(txtSearch.Text) = True Then
txtReasult.SelText = txtSearch.Text & " found in " & List1.List(x) & vbNewLine
End If
Next
End Function
Private Function WebPageContains(ByVal s As String) As Boolean
Dim i As Long, HTMLElement
For i = 1 To WebBrowser1.Document.All.length
Set HTMLElement = WebBrowser1.Document.All.Item(i)
If Not (HTMLElement Is Nothing) Then
If InStr(1, HTMLElement.innerHTML, s, vbTextCompare) > 0 Then
WebPageContains = True
Exit Function
End If
End If
Next i
End Function
Private Sub Form_Load()
List1.AddItem "google.com"
List1.AddItem "yahoo.com"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
ReadyLoad = True
End Sub۰۳-مرداد-۱۳۸۸, ۲۰:۱۳:۴۰
از لطفت ممنون
يك سوال ديگه هم داشتم.
ميشه اين جستجو رو روي فايلهاي PDF هم انجام داد . مثلا چندتا فايل PDF داريم مي خواهيم ببينيم يك كلمه در داخل متن كدام يك از اين ها قرار دارد؟ آيا براي اين هم راه حلي داريم يا نه؟
ممنون از كمكت.
يك سوال ديگه هم داشتم.
ميشه اين جستجو رو روي فايلهاي PDF هم انجام داد . مثلا چندتا فايل PDF داريم مي خواهيم ببينيم يك كلمه در داخل متن كدام يك از اين ها قرار دارد؟ آيا براي اين هم راه حلي داريم يا نه؟
ممنون از كمكت.