|
6091
|
Programación / Scripting / Re: Copiar carpetas en base a la fecha de modificación
|
en: 21 Enero 2015, 16:08 pm
|
Que debo modificar para que solo me copie las con fecha de modificación exacta y no otras. La aplicación XCopy no permite personalizar el copiado especificando el filtro que necesitas. Puedes utilizar la aplicación de terceros XXCopy: http://www.xxcopy.com//Do:<date> Copies files that were changed on the specified date. Así pues: XXCopy.exe "\\DestinoA" \\DestinoB" /Do:01-20-2015 /E /C /SC /K /H /VL O también puedes utilizar la aplicación RoboCopy de Microsoft: /MAXAGE:n :: Antigüedad máxima de archivo, excluir archivos más antiguos de n días o fecha. /MINAGE:n :: Antigüedad mínima de archivo, excluir archivos más nuevos de n días o fecha. Así pues: RoboCopy.exe "\\DestinoA" \\DestinoB" /MINAGE:01-20-2015 /MAXAGE:01-20-2015 /E /COPY:DATSOU /DCOPY:DAT /R:999 /W:30 O bien puedes hacer el copiado utilizando técnicas de Batch (Usar el comando Dir /B /S para listar los archivos y filtrarlos según la fecha de modificación de cada), pero sería un proceso algo lento y un código engorroso debido a que Batch es un lenguaje muy limitado. Saludos
|
|
|
6094
|
Programación / .NET (C#, VB.NET, ASP) / Re: Comprobar cambios en los registros
|
en: 21 Enero 2015, 07:11 am
|
capturo el error que dice "@oldnombre no tiene un valor predeterminado", no se cual puede llegar a ser el problema. Prueba a añadir un valor predeterminado. Un valor DBNull.Value en lugar de un null: parameter = adapter.UpdateCommand.Parameters.Add("@oldnombre", OleDbType.VarChar, 255, "nombre").Value = DBNull.Value parameter = adapter.UpdateCommand.Parameters.Add("@oldapellido", OleDbType.Char, 255, "apellido").Value = DBNull.Value
Saludos
|
|
|
6096
|
Programación / Java / Re: Mi programa no se abre cuando lo compilo desde cmd
|
en: 21 Enero 2015, 06:52 am
|
Cuando pongo javac MainClass sin la extension .java me tira el siguiente error error: Class names, 'MainClass', are only accepted if annotation processing is explicitly requested 1 error Entiendo ingles pero igual no puedo entender el error que me esta tirando  ⇲Java FAQClass names, 'HelloWorldApp', are only accepted if annotation processing is explicitly requested
If you receive this error, you forgot to include the .java suffix when compiling the program. Remember, the command is javac HelloWorldApp.java not javac HelloWorldApp. Como te está indicando, debes añadir la extensión .java en el nombre del archivo al usar el compilador de java. Sobre el problema que tienes de que el compiler compila sin tirar error pero ¿tampoco muestra ningún tipo de información?, no tengo ni idea de que puede ser. PD: Las preguntas relacionadas con Java van en la sección de Java.Saludos
|
|
|
6098
|
Programación / .NET (C#, VB.NET, ASP) / Re: Cómo Cambiar las Propiedades de un Control con "Reflection" ???
|
en: 20 Enero 2015, 18:48 pm
|
En el caso específico del problema que has expuesto, puedes hacerlo por ejemplo así: Ten en cuenta que el siguiente código no está pulido, es solo un ejemplo, y se podría simplificar o parsear el string de otra manera más eficiente. EDITO: Versión extendida: Imports System.Reflection Imports System.Globalization Public Class Form1 Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) _ Handles Button1.Click Me.ParseControlInstruction("Textbox2.Enabled = False") Me.ParseControlInstruction("Textbox2.Hide()") End Sub Private Sub ParseControlInstruction(ByVal instruction As String) Dim isProperty As Boolean Dim isMethod As Boolean If instruction Like "*[.]*[!(]*[=]*" Then isProperty = True ElseIf instruction Like "*[.]*[!=]*[(]*[)]" Then isMethod = True Else Throw New NotImplementedException(String.Format("Cannot recognize the instruction string: {0}", instruction)) End If ' Fix whitespaces. instruction = instruction.Trim({" "c}) ' Fix Namespaces. (THIS IS NOT PROPERLY IMPLEMENTED) If instruction.StartsWith("Me.", StringComparison.OrdinalIgnoreCase) Then instruction = instruction.Remove(0, "Me.".Length) End If Dim ctrlName As String = instruction.Substring(0, instruction.IndexOf("."c)) If isProperty Then Dim propName As String = instruction.Remove(0, ctrlName.Length + 1) propName = propName.Substring(0, propName.IndexOf(" "c)) Dim value As Object = instruction.Substring(instruction.IndexOf("="c) + 1).Trim({" "c}) Me.SetControlProperty(ctrlName, propName, value, MyBase.Controls, searchChildrens:=True) ElseIf isMethod Then Dim methodName As String = instruction.Remove(0, ctrlName.Length + 1).TrimEnd({"("c, ")"c}) Dim methodParamsStr As String = instruction.Substring(instruction.IndexOf("("c) + 1) methodParamsStr = methodParamsStr.Substring(0, methodParamsStr.LastIndexOf(")"c)) Dim methodParams As IEnumerable(Of Object) = methodParamsStr.Split({", "}, StringSplitOptions.RemoveEmptyEntries) Me.CallControlMethod(ctrlName, methodName, methodParams, MyBase.Controls, searchChildrens:=True) End If End Sub Private Sub SetControlProperty(ByVal ctrlName As String, ByVal propName As String, ByVal value As Object, ByVal controlCollection As Control.ControlCollection, Optional ByVal searchChildrens As Boolean = False, Optional ByVal searchFlags As BindingFlags = BindingFlags.IgnoreCase Or BindingFlags.Instance Or BindingFlags.Public Or BindingFlags.NonPublic) Dim ctrl As Control = controlCollection.Find(ctrlName, searchChildrens).FirstOrDefault Dim prop As PropertyInfo Select Case ctrl Is Nothing Case False Try prop = ctrl.GetType().GetProperty(propName, searchFlags) Catch ex As AmbiguousMatchException Throw New AmbiguousMatchException(String.Format("More than one property found with the same name: {0}", propName)) Exit Sub End Try Select Case prop Is Nothing Case False Try prop.SetValue(ctrl, Convert.ChangeType(value, prop.PropertyType), Nothing) Catch ex As Exception Throw End Try Case Else Throw New NullReferenceException(String.Format("Property not found by name: {0}", propName)) End Select ' prop Is Nothing Case Else Throw New NullReferenceException(String.Format("Control not found by name: {0}", ctrlName)) End Select ' ctrl Is Nothing End Sub Private Sub CallControlMethod(ByVal ctrlName As String, ByVal methodName As String, ByVal methodParams As IEnumerable(Of Object), ByVal controlCollection As Control.ControlCollection, Optional ByVal searchChildrens As Boolean = False, Optional ByVal searchFlags As BindingFlags = BindingFlags.IgnoreCase Or BindingFlags.Instance Or BindingFlags.Public Or BindingFlags.NonPublic) Dim ctrl As Control = controlCollection.Find(ctrlName, searchChildrens).FirstOrDefault Dim method As MethodInfo Select Case ctrl Is Nothing Case False Try method = ctrl.GetType().GetMethod(methodName, searchFlags) Catch ex As AmbiguousMatchException Throw New AmbiguousMatchException(String.Format("More than one method found with the same name: {0}", methodName)) Exit Sub End Try Select Case method Is Nothing Case False Try method.Invoke(ctrl, searchFlags, Nothing, methodParams.ToArray, CultureInfo.InvariantCulture) Catch ex As Exception Throw End Try Case Else Throw New NullReferenceException(String.Format("Method not found by name: {0}", methodName)) End Select ' prop Is Nothing Case Else Throw New NullReferenceException(String.Format("Control not found by name: {0}", ctrlName)) End Select ' ctrl Is Nothing End Sub End Class
Saludos
|
|
|
6099
|
Programación / .NET (C#, VB.NET, ASP) / Re: 1 muestra del poder de la programacion dinamica
|
en: 19 Enero 2015, 23:01 pm
|
@LordBynary
Está prohibido revivir temas antiguos, además, fíjate en la fecha de conexión del usuario SpiritDead en su perfil, dudo que vaya a responderte.
Para modificar en tiempo de ejecución la propiedad de un control teniendo solamente un string del tipo "Control.Property = Value", puedes hacerlo utilizando Reflection. Pero no entendí muy bien si es eso lo que pretendes hacer.
Plantea tu duda de forma correcta en otro tema, y muestra tú código.
Tema cerrado.
Saludos.
|
|
|
6100
|
Foros Generales / Foro Libre / Re: Zozo, el infame demonio de la Ouija
|
en: 19 Enero 2015, 22:49 pm
|
entonces por que hay gente que han visto espíritus viven fenómenos paranormales en sus casas hay gente ahora que lo estarán sufriendo en sus casas esos fenómenos y no son para tomarnos de risa En mi opinión... todos esos fenómenos paranormales son producto de la imaginación, es como el típico individuo que por desgracia sufre una experiencia cercana a la muerte ...por ejemplo un coma de corta duración (o incluso simplemente anestesiados xD), y en esa exeriencia dicen haber visto un tunel de luz... una luz que por supuesto debe ser Dios (¿que otra cosa podría ser, no?), y cuando despiertan de esa experiencia cercana a la muerte asocian de una manera irracional y primitiva esa luz con Dios, que Dios les estaba guiando con una luz o cosas así, cuando en realidad ese efecto túnel de luz es creado por el decrebro debido al estado de los ojos y del individuo (de forma muy mal explicada), es algo demostrado de forma científica, pero la gente seguirá creyendo que ha visto a Dios.. o espíritus, cuando todas esas cosas tienen otra explicación. Para mi esto es lo mismo... gente que cree en algo de forma equivocada, pero bueno, que cada uno crea en lo que le de la gana. Para ser sinceros no siempre he pensado así, de pequeño yo era menos racional e hice Ouija 2 veces, pero no vi nada ni tampoco me pasó nada. Saludos!
|
|
|
|
|
|
|