Amoozeshe kar ba mid va left dar VB6 (30% az barname nevisi vaseye nimbuzz dar vb6)

Quote :

ba salam ,
kheeeeeeeeeeili didam ke topic midan rajebe vb6 va aslan nemidunan chetor barnamashuno benevisan va nemidunan ke to barname nevisi vase nim , 30% marbut be mid va left mishe!

mikham be kesaei ke vb6 kar mikonan yad bdam chetori ba mid va left kar konan
to vb.net az SubString va Index Of use mishe va to vb6 az Mid va Left!
mid va left to barname nevisi vase nim to vb6 KHEYLI KHEYLI karbord dare
mid va left vase joda kardane string be kar mire (albate mid va left karaeiaye dige ei ham daran vali vase nim tozih midam)

dasture Kollish ine:

Code:

String = Mid(String,instr(String,"data") +integer)
String = Left(String,instr(String,"data") -integer)

be jaye String , reshte qarar midim
be jaye Integer , Adad
(age nemidunid string va integer chie behtare in matlabo nakhunid va beshinid az aval vb ro yad begirid!)
(kar ba xml az mohem tarin chizaie ke to soft nevisi vase nim estefade mishe , age az xml sar dar nemiari bayad rajebesh motale-e k.o.n.i dar hade kam)

ba zabune sade tozih midam (dar hade nim):
be tore mesal , to sube DataArrival (to winsock) mikhaym ye kari konim vaqti Add umad vase idimun , be surate khodkar add ro Subscribed kone (Accpet)

to in halat aval bayad ye if vasash tarif konim ke shart bezarim va begim:
age dakhele String , "beyne from=' va ' ro joda k.o.n
payane if

inam code kamel:

Code:

If Instr(GetData,"<presence") Then
If Instr(GetData,"type='subscribe'") Then

Dim Taraf As String
Taraf = Mid(GetData,instr(GetData,"from='") +6)
Taraf = Left(Taraf,Instr(Taraf,"'") -1)

sk.SendData "<presence to='" + Taraf + "' type='subscribe' />"
sk.SendData "<presence to='" + Taraf + "' type='subscribed' />"

End If
End If

khob in qesmato bebinid:

Code:

Dim Taraf As String
Taraf = Mid(GetData,instr(GetData,"from='") +6)
Taraf = Left(Taraf,Instr(Taraf,"data") -1)

aval az hame Stringe Taraf tarif shode
bad ba mid va left joda karde
tariqeye joda kardan:
aval qesmatio ke mikhaym joda konim ro dar nazar migirim
masalan Xmle Kollie daryafte Add ine:

Code:

<presence from='user@nimbuzz.com' type='subscribe />

khob mibinim ke idie taraf beyne from=' va ' hast
ba mid va left be in surat joda mikonim:
1.jaei ke mikhaym joda konim ro hefz mikonim
2.dasture example (hamun dasture kolli ke behetun dadam) ro minevisim
3.be jaye Stringe aval va charom va panjom va sheshom , Stringi ke mikhaym dakhelesh jaeio ke joda kardimo berizim mizarim
4.be jaye Stringe dovom va sevom , Stringi ke mikhaym azash qesmate morede nazaremuno joda konim ro mizarim
5.be jaye data ye aval , qesmate avale jaeio ke mikhaym joda konim ro mizarim ( from=' ) va be jaye data ye dovom , qesmate dovome jaeio ke mikhaym joda konim ro mizarim ( ' )
6.be jaye integere aval , tedad character haye dataye aval ro mizarim ( +6 )
7.be jaye integere dovom , -1 mizarim

TAMAM!

behtar az in nemitunam tozih bdam :-/

nice topic mamad vaqean topic mofidie .

inam +

nice mamad
tu vb.net ham mituni az mid o left use k.o.n.i

Code:: Dim xml As String = "<presence from='user@nimbuzz.com' type='subscribe />"
Dim target As String = Microsoft.VisualBasic.Mid(xml, InStr(xml, "from='") + 6)
target = Microsoft.VisualBasic.Left(target, InStr(target, "'") - 1)
MsgBox(target)

doroste aria
tozihat vase baqie:
mid va left joze-e vbscript hast va vb.net vase inke jash khali namune dakhele librarysh to qesmate Microsoft.visualbasic hameye chizaei ke to vbscript hast ro tarif karde

vali be nazare khodam substring va indexof behtare.

mamad toke inghad jaleb amozesh midi biao yekari k.o.n yek anjoman amozesh vb6 ya topic baz k.o.n to site vb6 nimbuzz tike tike rozi 2ta ya yek matlabo amozesh bede karet kheyli jaleb bod behet + midam dash :x

jaye topic inja nis

» amoozeshe barname nevisi c#
» help vase barname nevisi (barname nevisa)
» barname nevisi symbian
» code hay barname nevisi
» tarfandhaye barname nevisi