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 - raul338

#881
Si pero el quiere la comparativa entre 2 libros (o alguno mejor) y venis a meter .net :P y java sin razones cuando quiere aprender vb6 :P

Para eso hubiera posteado en Programación General y listo :)
#882
Ambos tienen cosas muy interesantes :)

Aca tenes un link al 2º libro online http://vb.mvps.org/hardcore/

De todas formas no perdes nada al leer los 2 :xD

Eso si, sobre el primero, tiene aplicaciones que ya no se usan mucho, como ASP, RDO, DAO, Aplicaciones IIS y DHTML  :-\

@MauroMasciar

#883
Yo pense que era un post para quejarse de esas llamadas que te hacen donde apenas contestas te salta una contestadora que dice "GANASTE UN GOL 1.6 0KM ....... Pagalo en 36 cuotas" ... :¬¬
#884
Código (vb) [Seleccionar]

Option Explicit
Private Const leTest As String = "asdf|a12f|12,12|12.12|12,23,34|133.23.330|36.658,30|81,838.59|11111111111111111111|1..3"
Private Const leSep As String = "|"

Private Sub Form_Load()
   Dim sTest() As String, i As Integer
   sTest = Split(leTest, leSep)
   For i = LBound(sTest) To UBound(sTest)
       Debug.Print sTest(i), IsNumeric_r338(sTest(i))
   Next
End Sub

' ==================================

Private Function IsNumeric_r338(str As String) As Boolean
   Dim cReg As Object
   Set cReg = CreateObject("VBScript.RegExp")
   With cReg
       ' Testeamos con . como separador de miles y , como separador de decimales
       ' Personalmente seria para mi "^-?(?:\d{1,3}(?:\.\d{3})*|\d+)(?:\,\d+)?$"
       ' ya que 133.23.330 no es un numero aunque IsNumeric diga que si ¬¬
       .Pattern = "^-?(?:\d{1,3}(?:\.\d{1,3})*|\d+)(?:\,\d+)?$"
       .Global = True
       .IgnoreCase = True
   End With
   IsNumeric_r338 = cReg.Test(str)
   If Not IsNumeric_r338 Then
       ' Testeamos con , como separador de miles y . como separador de decimales
       cReg.Pattern = "^(?:\d{1,3}(?:\,\d{3})*|\d+)(?:\.\d+)?$"
       IsNumeric_r338 = cReg.Test(str)
   End If
   Set cReg = Nothing
End Function


Soporta tantas cifras como caracteres que soporta string. Y números negativos :D


asdf          False
a12f          False
12,12         True
12.12         True
12,23,34      False
133.23.330    True
36.658,30     True
81,838.59     True
11111111111111111111        True
1..3          False
#885
[quote author=nsigned link=topic=335948.msg1649822#msg1649822 date=1312985976]
Editando el archivos host ya sea en linux o windows.. :silbar:
[/quote]

Eso le dijimos pero no funciono ;) (según el no funciono :xD)

El otro post (duplico el tema :¬¬) esta en el subforo de Redes
#886
Leete este tutorial, lo necesitarás mucho :D
Tutorial contorl ListView


ucListViewEx


También puedes buscar sobre FlexGrid y similares :D
#887
Cita de: dvdr en 10 Agosto 2011, 08:09 AM
cita:el moderador me aconsejo debian se lo instale pero al actualizar se calienta tanto el pc que se apaga ..por eso decidi usar sabayon 
Yo creo que deberías revisar ese problema de hardware antes de seguir, porque sino después se apagará en medio de la nada y por ahí dejes algo corrupto :P
#888
Cita de: EFEX en 10 Agosto 2011, 11:05 AM
Y quièn te compra la antimateria  :huh:
"Cientificos" y todo aquel con dinero que vaya mas allá del sentido común,  para que? Buena pregunta :rolleyes:
#889
Cita de: Sin Nick xD en 10 Agosto 2011, 00:51 AM
(adiós al dvdrip hola al fulldvd) para bajar?
No vale la pena fulldvd, no todos estan disponibles en ese formato :D
#890
Podrias explicarte un poco mas? Tablas de base de datos? Tablas tipo Excel en formularios?