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.
Cita de: choporrue en 17 Septiembre 2014, 11:42 AMHe probado tu solución y en el fichero resultante (file2.txt), las filas que antes aparecían en blanco han sido sustituidas por la expresión "ECHO est desactivado".
Echo. %%xCita de: choporrue en 17 Septiembre 2014, 09:40 AM¿Cómo puedo unir los ficheros con todos los datos?
For /F "UseBackQ Delims=" %%x in ("file.txt") do (
...
)Cita de: AnaxagoraS en 14 Septiembre 2014, 15:24 PM
El megafiles.me y el mega-search.me, pero no indexan todos los archivos.
Cita de: DonVidela en 15 Septiembre 2014, 20:41 PMNo veo como te pueden hacer problemas por querer hacer regalos.
Cita de: crazykenny en 15 Septiembre 2014, 20:38 PM
Bueno, Eleкtro, sobre esto que comentas, y, aunque tengamos nuestras diferencias en cuanto a opiniones, yo opino lo contrario a lo que expones de ti mismo en este foro.
Cita de: el-brujo1era premio una gorra de elhacker.net con portes pagados a cualquier parte del mundo.
2º Premio una cuenta de correo de @elhacker.net
)Cita de: XresH en 15 Septiembre 2014, 17:56 PM
Me apunto, a ver si puedo finalizar lo que el año pasado comenze y tuve que desaparecer por problemas de pareja (triste lo mio
)
Saludos.
Cita de: DonVidela en 15 Septiembre 2014, 17:43 PMLa aplicación debe ser con el código entonces.
.Cita de: fr3n3tic en 15 Septiembre 2014, 06:42 AM
Puedo agregar hasta 90 preguntas, y lo que busco es deshabilitar todos los textbox y dejarlos gris exceptuando el que corresponde a la alternativa que eligió el usuario, me explico, si el usuario elige la alterntiva C en la pregunta 50, debiera en la fila 50 solo activarse el textbox abajo del número 3, si elige el D, se activa el textbox del número 4 y así según corresponda la alternativa elegida por el user y que en la que queda activa aparezca el número 1 por defecto (cómo valor numérico, no alfanumérico). El tema es que tendría que hacer esto por cada pregunta puediendo partir en 10 y hasta 90 en bloques de 5 en 5 lo que encuentro es mucho para validar uno a uno. Tengo un panel que agrupa las 10 primera preguntas y luego varios paneles que agrupan preguntas de 5 en 5 hasta llegar a 90, esto me permite mostrar o esconder según la elección de preguntas que haga el usuario.
Otro tema, es que cuando presiono el botón que está entre el checkbox y el último textbox de cada pregunta, me debiese habilitar todos los textbox de esa fila y si presiono el checkbox debiese bloquear todos los textobx de esa fila y dejarlos en cero o limpios cada caja de esa fila.
Public Class Form1
''' <summary>
''' Initializes a new instance of the <see cref="Form1"/> class.
''' </summary>
Public Sub New()
' This call is required by the designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
Me.StartPosition = FormStartPosition.CenterScreen
Me.MaximizeBox = False
End Sub
''' <summary>
''' Handles the Load event of the Form1.
''' </summary>
Private Shadows Sub Load() Handles MyBase.Load
Me.CreateRowsOfControls(RowsCount:=5I)
End Sub
''' <summary>
''' Creates the controls.
''' </summary>
''' <param name="RowsCount">The amount of rows of controls to generate.</param>
Private Sub CreateRowsOfControls(ByVal RowsCount As Integer)
Me.SuspendLayout()
For row As Integer = 1I To RowsCount
For num As Integer = 1I To 5I
Dim tb As New TextBox With
{
.Name = String.Format("tb_{0}.{1}", CStr(row), CStr(num)),
.Size = New Size(15I, 20I),
.Location = New Point((15I * num) + (2I * num), (20I * row) + (5I * row)),
.Tag = row
}
Me.Controls.Add(tb)
Next num
Dim bt As New Button With
{
.Name = String.Format("bt_{0}", CStr(row)),
.Size = New Point(120I, 20I),
.Text = String.Format("Desactivar fila nº{0}", CStr(row)),
.Location = New Point(Me.Controls(String.Format("tb_{0}.{1}", CStr(row), CStr(RowsCount))).Right + 5I, (20I * row) + (5I * row)),
.Cursor = Cursors.Hand,
.Tag = New Object() {row, True}
}
AddHandler bt.Click, AddressOf bt_Click
Me.Controls.Add(bt)
Next row
Me.ResumeLayout()
End Sub
''' <summary>
''' Handles the Click event of the bt controls.
''' </summary>
''' <param name="sender">The source of the event.</param>
''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
Private Sub bt_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim bt As Button = DirectCast(sender, Button)
Dim Row As Integer = DirectCast(bt.Tag(0I), Integer)
Dim Disable As Boolean = DirectCast(bt.Tag(1I), Boolean)
Dim tbNamePattern As String = String.Format("tb_{0}.", CStr(Row))
Me.SuspendLayout()
Select Case Disable
Case True ' Desactivar controles
bt.Text = String.Format("Activar fila nº{0}", CStr(Row))
bt.Tag = New Object() {Row, Not Disable}
ControlIterator.Disable(Of TextBox)(Me.Controls, tbNamePattern)
ControlIterator.PerformAction(Of TextBox)(Me.Controls,
Sub(tb As TextBox)
tb.BackColor = Color.Black
End Sub,
ContainsName:=tbNamePattern)
Case Else ' Activar controles
bt.Text = String.Format("Desactivar fila nº{0}", CStr(Row))
bt.Tag = New Object() {Row, Not Disable}
ControlIterator.Enable(Of TextBox)(Me.Controls, tbNamePattern)
ControlIterator.PerformAction(Of TextBox)(Me.Controls,
Sub(tb As TextBox)
tb.BackColor = SystemColors.Window
End Sub,
ContainsName:=tbNamePattern)
End Select ' Disable
Me.ResumeLayout()
End Sub
End Class