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

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

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

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

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

تشکرها : 34
( 311 تشکر در 137 ارسال )
ارسال: #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
موضوع‌ها: 0
تاریخ عضویت: دى ۱۳۸۶

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

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

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

تشکرها : 34
( 311 تشکر در 137 ارسال )
ارسال: #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
موضوع‌ها: 0
تاریخ عضویت: دى ۱۳۸۶

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

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


موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  درخواست کد برنامه saeid1346 2 550 ۲۳-تير-۱۳۹۴, ۱۸:۴۶:۵۷
آخرین ارسال: saeid1346
  ذخیره کردن نتیجه اجرای کد به صورت رشته alefpe 1 609 ۱۰-خرداد-۱۳۹۴, ۱۰:۲۰:۲۲
آخرین ارسال: lord_viper
Toungue کد متن متحرک از پایین به بالا رو میخوام --Milad-- 13 7,717 ۱۲-فروردین-۱۳۹۴, ۱۱:۴۵:۴۹
آخرین ارسال: Payman62
  [سوال] اجرای کد با کلیک روی لینک نوشته در اکسل eppagh 0 654 ۰۳-بهمن-۱۳۹۳, ۱۶:۱۹:۰۴
آخرین ارسال: eppagh
  [سوال] تداخل برنامه با کد داخل Worksheet_Change eppagh 1 561 ۱۹-آبان-۱۳۹۳, ۱۲:۴۶:۰۱
آخرین ارسال: eppagh
Question [سوال] جلوگیری از مشاهده کد توسط کاربر eppagh 11 2,208 ۲۷-مرداد-۱۳۹۳, ۱۳:۳۲:۳۷
آخرین ارسال: ajlajlajl
  [سوال] فرق کد نوشتن در Class و Modul چیست؟ eppagh 3 854 ۰۹-مرداد-۱۳۹۳, ۰۹:۵۴:۵۷
آخرین ارسال: babyy
  درخواست کد پرینت گراف در PictureBox برای VB6 javad917 11 3,382 ۱۲-تير-۱۳۹۳, ۱۳:۳۸:۱۳
آخرین ارسال: javad917
  تبدیل کلمه به کد اسکی karbon2010 3 6,590 ۲۵-اردیبهشت-۱۳۹۳, ۱۵:۱۰:۰۹
آخرین ارسال: Ghoghnus
  تبدیل کد به یونیکد فارسی aleas 4 1,708 ۱۱-اسفند-۱۳۹۲, ۱۱:۱۶:۴۸
آخرین ارسال: aleas

پرش به انجمن:


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

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