Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - seba123neo

#1631
Foro Libre / Re: Juicio final cuanto antes
29 Mayo 2010, 22:57 PM
yo hace 10 años aproximadamente que no piso una iglesia, soy catolico, creo que hay algo superior llamase Dios, llamase atomo, lo que sea.

la iglesia todos sabemos a matado en la historia de la humanidad muchas personas por no aceptar lo que ellos decian, esto no lo puede negar nadie.

mi padre por ejemplo no puede ver ningun cura o papa por la television, ni bien lo ve, le raja una buena put...y lo pasa de canal, a mi cuando hace eso digamos que no me gusta, pero es lo que el piensa, y varias persoans tambien, o sea piensa igual que vos GNU López, odia los papas, los curas, la iglesia misma, pero el igual creeo en algo, no en lo que dice la iglesia.

el me dice que los curas son todos unos violadores de niños, yo se que el lo dice por la cantidad de personas que salen violadas por un cura por la TV...pero se que no todas los curas  son asi, no podemos generalizar, pero cada vez que pasa le mete un voto mas a la carga negativa que tiene la iglesia a lo largo de la historia.

si quemas el vaticano como decis que queres pero no podes, el mundo va a seguir teniendo robos, insultos y volaciones,hoy en dia la gente es libre piensa lo que quiere, ven Zeigeist y lo toman como verdad. la iglesia tiene una historia negra. a mi los que son homosexuales no me interesan, mientras a mi no me molesten pueden hacer lo que quieran con su sexualidad, pero si que me da un poco de asco a veces ver por TV algunas cosas, pero por mi que hagan lo que quieran, que se casen, en la biblia esta mas que claro que la homosexualidad es un pecado, pero bueno si esto va en contra de las reglas de Dios algun dia lo sabremos, mientras que hagan lo que quieran.

estamos en una sociedad que ya la gente cree lo que quiere, uno puede ser catolico y creer en otras cosas que la iglesia no dice, parece que la religion se la va armando la persona misma, es lo que me pasa a mi por lo menos.

saludos.
#1632
Hola, recorres el listbox y vas llenando el archivo, cual es el problema ?
#1633
mira si se puede, el tema que por ejemplo esta pagina lo tiene bloqueado, por lo menos yo no he podido sacar el codigo fuente de esta web en la pagina de estadisticas, ni en la pagina principal que es donde estan los conectados (pero en reliadad si encontre donde se puede, pero no lo digo  :xD).

pero supongamos que esta habilitado como el foro SMF de simplemachines, fijate este link:

Simple Machines Community Forum - Statistics Center

ese es el centro de estadisticas y suponete que yo quiero sacar los que mas postearon, yo habia hecho algo asi, ni idea si es la mejor forma o no, pero puede funcionar bien.

en un formulario pone un textbox multilinea, en realidad podes omitirlo, pero para que veas como funciona.

Código (vb) [Seleccionar]
Option Explicit

Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal sURL As String, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer

Private Const IF_FROM_CACHE = &H1000000
Private Const IF_MAKE_PERSISTENT = &H2000000
Private Const IF_NO_CACHE_WRITE = &H4000000
Private Const BUFFER_LEN = 256

Private Function ExtraerLinks(ByVal pTexto As String) As Object

    Dim vExpresion As Object
    Set vExpresion = CreateObject("VBScript.RegExp")

    vExpresion.Pattern = "<a href=\s*([^\s]*)\s*>"
    vExpresion.IgnoreCase = True
    vExpresion.Global = True
   
   Set ExtraerLinks = vExpresion.Execute(pTexto)
End Function

Public Function CodigoFuenteWeb(Pagina As String) As String
    Dim sBuffer As String * BUFFER_LEN, iResult As Integer, sData As String
    Dim hInternet As Long, hSession As Long, lReturn As Long
    hSession = InternetOpen("vb wininet", 1, vbNullString, vbNullString, 0)
    If hSession Then hInternet = InternetOpenUrl(hSession, Pagina, vbNullString, 0, IF_NO_CACHE_WRITE, 0)
    If hInternet Then
        iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
        sData = sBuffer
        Do While lReturn <> 0
            iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
            sData = sData + Mid(sBuffer, 1, lReturn)
        Loop
    End If
    iResult = InternetCloseHandle(hInternet)
    CodigoFuenteWeb = sData
End Function

Private Sub Form_Load()
    Text1.Text = Replace(CodigoFuenteWeb("http://www.simplemachines.org/community/index.php?action=stats"), Chr(10), vbNewLine)
    Text1.Text = TextoEntreMedio(Text1.Text, "Top 10 Posters", "<div id=""top_boards"">")
   
    Dim vLinks As Object
    Dim i As Long
   
    Set vLinks = ExtraerLinks(Text1.Text)

    For i = 0 To vLinks.Count - 1
        MsgBox vLinks(i)
    Next
End Sub

Private Function TextoEntreMedio(Texto As String, Palabra1 As String, Palabra2 As String)
    TextoEntreMedio = Left$(Mid$(Texto, InStr(Texto, Palabra1) + Len(Palabra1)), InStr(Mid$(Texto, InStr(Texto, Palabra1) + Len(Palabra1)), Palabra2) - 1)
End Function


lo que hago simplemente es traerme todo el codigo fuente de la pagina web, y deppues comienzo por asi decirlo a parsearlo, se que no es parseo 100% pero bueno..es como empezar a sacar las cosas que no sirven y dejar las que si.

1 - primero me traigo el codgo fuente entero.

2 - despues con una simple funcion saco solo el texto que esta entre las cadenas "Top 10 Posters" y <div id=""top_boards"">" que es digamos cuando termina los 10 mas posteadores...el tema que por ejemplo si te cambian el texto esto no funciona mas, pero podes buscar dentro del fuente algo que sea fijo y no cambie, esto es solo un ejemplo.

3 - una vez que me quedo la sección de los 10 mas posteadores, lo que hago es con expresiones regulares (esto es un ejemplo de Leandro, simplemente que este es para links y no para mails) saco los links de los usuarios posteadores y el nombre.

una vez que tenes el link del perfil y el nombre, ya veras vos que hacer, pero ahi te queda bien y te trae los 10.

saludos.
#1634
si decis que web es y que parte de la pagina queres leer.
#1635
Foro Libre / Re: Juicio final cuanto antes
29 Mayo 2010, 16:31 PM
Cita de: Constance en 29 Mayo 2010, 14:49 PM
Cita de: GNU López en 29 Mayo 2010, 07:13 AM
deberíamos quemar iglesias y esas cosas que te hacen sentir bien por dentro.

Me parece una verguenza lo que dices ...

Tu puedes tener tu forma de pensar, tu idelogía, tus valores....pero los demás tenemos los nuestros y son igual de respetables . ......y a mí esa apologia de la violencia que haces, incitando a la gente a quemar nuestro lugar de reunión y diciendo que eso les hace sentir bien , me parece deleznable y rastrero...

Yo no soy musulmana ,pero jamás diría a los demas que quemen una mezquita porque ese lugar para otras personas que no soy yo es importante y yo eso me puede parecer bien, mal, incluso me puede molestar , pero debo ...........respetarlo

La religion es libre, si no quieres pisar una iglesia no la pises, nadie te va a pedir que lo hagas porque es algo optativo ,pero respeta a los que si quieren hacerlo...

Has dicho antes que igual te cerraban el post por decir que la religión era una secta y no creo que ningún moderador haga eso, ahora si te lo cierran por incitar a la gente a quemar lugares que para otros son sagrados  y  encima decir que eso te hace sentir bien por dentro ..............entenderé al moderador que lo haga ......lo entenderé muy bien

+1

te zarpaste GNU López
#1636
busca sobre ADO.NET...la pagina de el guille, sobre DataReaders, DataCommand,etc..
#1637
Hola, no le veo lo dificil, mira tendrias que buscar mas sobre ABM, por ejemplo aca tenes un ejemplo de un simple ABM:

Formulario ABM con Access y Ado

para el que no sabe que es ABM son las siglas de (alta, baja y modificacion).

para los clientes vos debes tener tu propia pantalla de ABM, ahi das de altas los clientes con sus datos.

para el personal otro ABM, y para las visitas otro ABM  :D, parece mentira pero asi es...el unico detalle que el ABM de visitas, en el formulario donde das de altas las visitas vas a tener que cargar en un combo los clientes que ya existen, y en otro combo el personal que ya existe..para que cuando guardeas las visitas , guardes el ID del cliente y el ID de la visita...y listo.

saludos.
#1638
ISP: Arnet (Telecom)
Ancho de Banda: 3 MB
Costo Mensual : 28$USD
#1639
la verdad he trabajado muy poco con el control datagrid, lo he reemplazado casi sin pensarlo por el MSHFlexgrid es mucho mas personalizable y queda mejor en la interfaz, yo creo que todos los programadores prefieren por arriba el MSHFlexgrid que el datagrid.

me imagino que lo que estaras tratando de hacer, es que el usuario pueda ingresar manualmente los datos al datagrid y asi se inserten en la base directamente, por lo menos yo cuando quiero ingresar un registro nunca lo he realizado de ese modo directo, prefiero hacerme una pantalla de ABM, donde al hacer click en un registro me carga una nueva pantalla con los datos del registro seleccionado, porque si llegas a tener 50 campos, no creo queda efectivo que el usuario tenga que cargar todos esos datos en la grilla...aparte de la forma que yo te digo es como hacen la mayoria de los sistemas, por ejemplo, si tenes clientes que agregar, en una pantalla pones una grilla donde te lista todos los clientes..al hacer click en un registro te aparece una ventana con los datos del cliente para poder editarlo...esta pantalla de paso tambien te sirve para agregar uno nuevo , y despues que agreges el nuevo lo ves en la grilla de la anterior pantalla:

fijate esta pantalla por ejemplo de ABM de clientes:

ABM Clientes

saludos.
#1640
Cita de: Alex@ShellRoot en 24 Mayo 2010, 21:04 PM
No, no entiendo varias cosas que haces allí.
1. Declara el tipo de variable a usar
Código (vb) [Seleccionar]
Dim a, b, c As Integer


Alex, declarar las variables de esa forma en .NET es valido, las 3 serian Integers, pero en visual basic 6 , solo la ultima seria Integer y las otras de tipo Variant, o sea que se deberian declarar asi:

Código (vb) [Seleccionar]
Dim a As Integer, b As Integer, c As Integer

saludos.