[APORTE] /buscar item

por **Berbo** el Lun Nov 21, 2011 11:15 pm

Bueno, estaba aburrido, despues de hacer muchisimas cosas, y decidi aportar.

Este comando, agarre el original y le arregle un error que tenía.

Todo en servidor:

Buscamos:

Código:
If UCase$(Left$(rData, 6)) = "/RMSG " Then rData = Right$(rData, Len(rData) - 6) Call LogGM(UserList(UserIndex).name, "Mensaje Broadcast:" & rData, False) If rData <> "" Then Call SendData(SendTarget.ToAll, 0, 0, "||" & rData & FONTTYPE_TALK & ENDC) End If Exit Sub End If

Abajo colocamos:

Código:
If UCase$(Left$(rData, 8)) = "/BUSCAR " Then rData = Right$(rData, Len(rData) - 8) For i = 1 To UBound(ObjData) If InStr(1, Tilde(ObjData(i).name), Tilde(rData)) Then Call SendData(ToIndex, UserIndex, 0, "||" & i & " " & ObjData(i).name & "." & FONTTYPE_INFO) N = N + 1 End If Next If N = 0 Then Call SendData(ToIndex, UserIndex, 0, "||No hubo resultados de la búsqueda: " & rData & "." & FONTTYPE_INFO) Else Call SendData(ToIndex, UserIndex, 0, "||Hubo " & N & " resultados de la busqueda: " & rData & "." & FONTTYPE_INFO) End If Exit Sub End If

Buscamos:

Código:
Function MapaValido(ByVal Map As Integer) As Boolean

Y arriba ponemos:

Código:
Public Function Tilde(Data As String) As String Tilde = Replace(Replace(Replace(Replace(Replace(UCase$(Data), "Á", "A"), "É", "E"), "Í", "I"), "Ó", "O"), "Ú", "U") End Function

por **NazduM** el Mar Nov 22, 2011 9:43 pm

Buen aporte.
Pero poné fuente.

Igual unico que hiciste fue mover la A

[APORTE] /buscar item

[APORTE] /buscar item

Re: [APORTE] /buscar item