امتیاز موضوع:
  • 0 رأی - میانگین امتیازات: 0
  • 1
  • 2
  • 3
  • 4
  • 5
کد های xml
نویسنده پیام
relax_cp آفلاین
كاربر دو ستاره
**

ارسال‌ها: 97
موضوع‌ها: 35
تاریخ عضویت: دى ۱۳۸۶

تشکرها : 27
( 16 تشکر در 14 ارسال )
ارسال: #1
Exclamation  کد های xml
با سلام
می خواستم بدانم آیا میشه کدی نوشت که برنامه ای را که با xml نوشتیم با وی بی اجرا کنیم. و آیا میشه این برنامه را توی یکی از فرمهای وی بی اجرا کرد؟

هر آنچه براي خود مي پسندي براي ديگران نيز بپسند و هر آنچه براي خود نمي پسندي براي هيچكس مپسند.
(آخرین ویرایش در این ارسال: ۱۷-مرداد-۱۳۸۸, ۱۷:۵۷:۰۹، توسط relax_cp.)
۰۱-مرداد-۱۳۸۸, ۱۹:۱۴:۳۴
وب سایت ارسال‌ها
پاسخ
PouriaAmid آفلاین
مدیر بازنشسته
*****

ارسال‌ها: 272
موضوع‌ها: 15
تاریخ عضویت: شهریور ۱۳۸۳

تشکرها : 34
( 311 تشکر در 133 ارسال )
ارسال: #2
RE: کار با کد های xml
منظورت از برنامه ای که با XML نوشتيم چيه?
مگه با XML هم ميشه برنامه نوشت?
XML يه بانک داده هاست. اگه منظورت خوندن اطلاعات از فايل XML هستش که آره ميشه
اینم نمونه
http://iranvig.com/modules.php?name=News...e&sid=1766

Root is not accessible
۰۱-مرداد-۱۳۸۸, ۱۹:۳۷:۵۰
وب سایت ارسال‌ها
پاسخ
تشکر شده توسط : relax_cp
relax_cp آفلاین
كاربر دو ستاره
**

ارسال‌ها: 97
موضوع‌ها: 35
تاریخ عضویت: دى ۱۳۸۶

تشکرها : 27
( 16 تشکر در 14 ارسال )
ارسال: #3
RE: کار با کد های xml
ازت ممنونم.
راستش من می خوام یک کاری کنم که به من پیشنهاد شد از کدهای xml استفاده کنم.
اون کار هم اینه که می خوام با استفاده از VB6 یک برنامه بنویسم که بتونه یک کلمه را از داخل متون یکسری صفحات html جستجو کنه و نتایج اون هم برای ما نمایش بده مثلا به این شکل:
نقل قول: کلمه "انسان" در صفحات 2.html و 3.html قرار دارد
اگه راه حلی به نظرتون میرسه بفرمایید

هر آنچه براي خود مي پسندي براي ديگران نيز بپسند و هر آنچه براي خود نمي پسندي براي هيچكس مپسند.
۰۱-مرداد-۱۳۸۸, ۱۹:۴۸:۲۵
وب سایت ارسال‌ها
پاسخ
PouriaAmid آفلاین
مدیر بازنشسته
*****

ارسال‌ها: 272
موضوع‌ها: 15
تاریخ عضویت: شهریور ۱۳۸۳

تشکرها : 34
( 311 تشکر در 133 ارسال )
ارسال: #4
RE: کار با کد های 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

Root is not accessible
(آخرین ویرایش در این ارسال: ۰۱-مرداد-۱۳۸۸, ۲۰:۴۰:۲۷، توسط PouriaAmid.)
۰۱-مرداد-۱۳۸۸, ۲۰:۳۶:۱۸
وب سایت ارسال‌ها
پاسخ
تشکر شده توسط : relax_cp
relax_cp آفلاین
كاربر دو ستاره
**

ارسال‌ها: 97
موضوع‌ها: 35
تاریخ عضویت: دى ۱۳۸۶

تشکرها : 27
( 16 تشکر در 14 ارسال )
ارسال: #5
RE: کار با کد های xml
از لطفت ممنون
يك سوال ديگه هم داشتم.
ميشه اين جستجو رو روي فايلهاي PDF هم انجام داد . مثلا چندتا فايل PDF داريم مي خواهيم ببينيم يك كلمه در داخل متن كدام يك از اين ها قرار دارد؟ آيا براي اين هم راه حلي داريم يا نه؟
ممنون از كمكت.

هر آنچه براي خود مي پسندي براي ديگران نيز بپسند و هر آنچه براي خود نمي پسندي براي هيچكس مپسند.
۰۳-مرداد-۱۳۸۸, ۲۰:۱۳:۴۰
وب سایت ارسال‌ها
پاسخ


پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع: 1 مهمان

صفحه‌ی تماس | IranVig | بازگشت به بالا | | بایگانی | پیوند سایتی RSS