Programación General > Visual Basic para principiantes

 Analizando Textos (jojo)

<< < (2/2)

Nuker:
:lol:  ahhhhhhhhhhhh aeaeaeaeeaeaeaeaa  :hola:  q felizzzz xD


Muchas graciasssssssss


--- Código: Text ---    Dim strA As String   Dim strB As String   Dim lngX As Long   strA = &#34;holacomoandascomenzarprobando123456789&#34;   strB = &#34;probando&#34;   lngX = InStr(strA, strB)   Text1.Text = Mid&#036;(strA, 1, lngX - 1) & Mid&#036;(strA, lngX + 8, lngX)  

Nuker:
uh, anda perfecto, pero si lo uso en una funcion tira error y no tengo idea como solucioanrlo O.o es medio fruta me parece...

Error '5' en tiempo de ejecución:
Llamada a procedimiento o argumento no válidos



--- Código: Text --- Public Function WinsockGet(pSock As Winsock, ByVal Data As String) If pSock.State = sckConnected Then pSock.GetData DataDoEventsWinsockGet = TrueDim Data    Dim strA 'As String   Dim strB As String   Dim lngX As Long   strA = Data   Do While parar = 0 If status = &#34;Host&#34; Then    strB = &#34;changeteam&#34;   lngX = InStr(strA, strB)   If Not lngX = &#34;0&#34; ThenDim changeteamvalorIf Check1.Value = &#34;1&#34; Thenchangeteamvalor = &#34;1&#34;Elsechangeteamvalor = &#34;0&#34;End Ifchangeteamvalor = &#34;changeT &#34; & changeteamvalorpSock.SendData (changeteamvalor)Data = Mid&#036;(strA, 1, lngX - 1) & Mid&#036;(strA, lngX + 10, lngX)Elseparar = 1End IfEnd If Loopparar = 0    Else WinsockGet = FalseEnd IfEnd Function  



_______________________________________


Solucionado, encontre el problema, lo posteo por si a alguno el pasa lo mismo.

el winsock al conectarmele, tiene la variable Data vacia, asi q antes de andar analizandole lo que dice le puse un...
if Data = vbnullstring then
exit function
WinsockGet = False
end if

Navegación

[0] Índice de Mensajes

[*] Página Anterior