|
61
|
Programación / .NET (C#, VB.NET, ASP) / Como sobreescribir un txt en visual basic .net
|
en: 27 Mayo 2013, 17:26 pm
|
Muy buenas a todos. Quería saber como modificar una línea de un txt en visual basic .net. Hasta ahora logro guardar los datos de mis cajas de texto en un array, ese array está por líneas y mando la linea a una función que se coloca en el archivo o eso creo sobre la línea a modificar sobre la cual según tengo entendido debería sobreescribir dicha línea. Sin embargo me lo escribe al final del txt y no sobre la línea que le paso. Linea_ac es la linea que quiero cambiar. Private Sub Sobreescribir_linea_en_Archivo(ByVal linea_ac As Short)
Using ARCHIVO As New System.IO.StreamWriter("F:\alumnos.txt", True) 'cambiar la ruta si es necesario For J = 0 To 8 If J = 8 Then ARCHIVO.Write(TB_A(linea_ac, J)) Else ARCHIVO.Write(TB_A(linea_ac, J) & ";") End If Next End Using
End Sub A ver si alguien me dice que me falta o como arreglar esto
|
|
|
62
|
Programación / .NET (C#, VB.NET, ASP) / Re: Como realizar una busqueda
|
en: 23 Mayo 2013, 19:42 pm
|
Se supone que guardo: clase, curso, dni, nombre, asignatura, instrumento, nota 1, 2 y 3 todo separado por ;
En el txt queda de la siguiente forma. 2;B;03036642-Q;Irene;Historia;Ninguno;7;6;9
No se si se puede hacer un private sub listar (p1 as string,p2...p4) y mandar los combobox 4 en total)
No se muy bien como preguntar si me ha llegado el p1 que se corresponde con el comboboxcurso.text entonces buscalo sino paso al 2ºcombobox, etc...
|
|
|
63
|
Programación / .NET (C#, VB.NET, ASP) / Re: Como realizar una busqueda
|
en: 22 Mayo 2013, 18:52 pm
|
Creo que el uso de funciones con varias parámetros me soluciona el problema. Voy a probar, ¡ gracias !. El mayor problema que veo en este problema es que tengo como 5 combobox y hay muchas opciones en cada uno, por lo que no quiero tener que repetir código y mucho menos meterme en locuras de if anidados uno dentro de otro.
El tema sería por ejemplo tengo 3 combobox
1º curso que puede ser 1º,2º o Todos 2º clase: A, B Todas 3º Asignaturas: Mates, Fisica,.... Todas
Lo que quiero es poder dar opción de mostrar al usuario si solo rellena los combobox de curso 2º y de asignatura Mates para ver todos los alumnos con la asignaturas de matemáticas sin importar la clase en la que estén.
|
|
|
64
|
Programación / .NET (C#, VB.NET, ASP) / Como realizar una busqueda
|
en: 21 Mayo 2013, 21:37 pm
|
Muy buenas, tengo un pequeño problema de concepto creo, estoy realizando una búsqueda según el texto de 4 combo box. Lo que quiero es que según lo que tenga marcado en los combo box se busque en mi archivo txt, es decir si pongo en un combobox nombre: pepe, dni: 49028334-ñ y tlf 6905677 no se si debería mostrar solo un usuario con esa coincidencia el cual debería ser solo 1 porque dni no se repiten o todos los usuarios llamados pepe ya que el dni y tlf no va a coincidir con la busqueda. Por ahora tengo esto For I = 0 To 249 If TB_A(I, 0) = curso And TB_A(I, 1) = clase And TB_A(I, 4) = asignatura And TB_A(I, 5) = instrumento Then For J = 0 To 8 TextBox1.Text += TB_A(I, J) & Chr(9) Next TextBox1.Text += Chr(13) & Chr(10) End If Next
Pero entiendo que debe dar problemas puesto que si quiero solo el campo 1 y 3 que son nombres: Paco y del 3ºcurso tal y como lo tengo no me serviría puesto que el resto de campos se me enviarían como parametros en blanco y me intentaría buscar con un and en blanco
|
|
|
66
|
Programación / .NET (C#, VB.NET, ASP) / Ayuda con calculadora Visual Basic .Net
|
en: 1 Abril 2013, 19:31 pm
|
Muy buenas, tengo muchas duda sobre como hacer una calculadora, hasta ahora he hecho la recogida de los datos pero tal y como lo he planteado no se si es la mejor forma se supone que debe haber solo 1 texbox aunque yo le he puesto 2 para ver si realmente me realiza las operaciones y me guarda en sus variables los números. Agradezco cualquier ayuda. Dejo el proyecto para que se vea rápidamente como va. http://www.mediafire.com/?sxzle6zvjm9uratPublic Class Form1 Dim resultado As Double Dim b As Boolean Dim primerNumero As Double Dim segundoNumero As Double Dim cont As Short = 0 'NUMEROS Y COMA Private Sub Btn0_Click(sender As System.Object, e As System.EventArgs) Handles Btn0.Click TextBox1.Text = TextBox1.Text & 0 End Sub Private Sub Btn1_Click(sender As System.Object, e As System.EventArgs) Handles Btn1.Click TextBox1.Text = TextBox1.Text & 1 End Sub Private Sub Btn2_Click(sender As System.Object, e As System.EventArgs) Handles Btn2.Click TextBox1.Text = TextBox1.Text & 2 End Sub Private Sub Btn3_Click(sender As System.Object, e As System.EventArgs) Handles Btn3.Click TextBox1.Text = TextBox1.Text & 3 End Sub Private Sub Btn4_Click(sender As System.Object, e As System.EventArgs) Handles Btn4.Click TextBox1.Text = TextBox1.Text & 4 End Sub Private Sub Btn5_Click(sender As System.Object, e As System.EventArgs) Handles Btn5.Click TextBox1.Text = TextBox1.Text & 5 End Sub Private Sub Btn6_Click(sender As System.Object, e As System.EventArgs) Handles Btn6.Click TextBox1.Text = TextBox1.Text & 6 End Sub Private Sub Btn7_Click(sender As System.Object, e As System.EventArgs) Handles Btn7.Click TextBox1.Text = TextBox1.Text & 7 End Sub Private Sub Btn8_Click(sender As System.Object, e As System.EventArgs) Handles Btn8.Click TextBox1.Text = TextBox1.Text & 8 End Sub Private Sub Btn9_Click(sender As System.Object, e As System.EventArgs) Handles Btn9.Click TextBox1.Text = TextBox1.Text & 9 End Sub Private Sub BtnComa_Click(sender As System.Object, e As System.EventArgs) Handles BtnComa.Click TextBox1.Text = TextBox1.Text & "," End Sub 'FUNCIÓN QUE RECORRA CADA VEZ QUE SE AÑADA UN Nº EN EL TEXTBOX EN BUSCA DE COMAS Y CUENTE SI YA HAY 1 PARA QUE NO PERMITA PONER MAS, POR EJEMPLO DESHABILITANDO EL BOTÓN O INFORMANDOLO MSGBOX 'OPERACIONES Private Sub BtnMas_Click(sender As System.Object, e As System.EventArgs) Handles BtnMas.Click cont = cont + 1 Call Operar(TextBox1.Text, BtnMas.Text) End Sub Private Sub BtnMenos_Click(sender As System.Object, e As System.EventArgs) Handles BtnMenos.Click cont = cont + 1 Call Operar(TextBox1.Text, BtnMenos.Text) End Sub Private Sub BtnMultiplicar_Click(sender As System.Object, e As System.EventArgs) Handles BtnMultiplicar.Click cont = cont + 1 Call Operar(TextBox1.Text, BtnMultiplicar.Text) End Sub Private Sub BtnDividir_Click(sender As System.Object, e As System.EventArgs) Handles BtnDividir.Click cont = cont + 1 Call Operar(TextBox1.Text, BtnDividir.Text) End Sub Private Sub BtnIgual_Click(sender As System.Object, e As System.EventArgs) Handles BtnIgual.Click cont = cont + 1 If cont = 1 Then TextBox2.Text = primerNumero End If If cont = 2 Then TextBox2.Text = TextBox2.Text & TextBox1.Text & " = " & resultado End If If cont > 2 Then TextBox2.Text = TextBox2.Text & TextBox1.Text & " = " & resultado End If End Sub Private Sub Operar(ByVal numero As Double, ByVal operando As String) Select Case cont Case 1 Select Case operando Case "+" primerNumero = numero TextBox2.Text = primerNumero & operando Case "-" primerNumero = numero Case "X" primerNumero = numero Case "/" primerNumero = numero End Select TextBox1.Text = "" Case 2 Select Case operando Case "+" TextBox2.Text = TextBox2.Text & numero & operando resultado = primerNumero + numero Case "-" resultado = primerNumero * numero Case "X" resultado = primerNumero * numero Case "/" resultado = primerNumero / numero End Select 'TextBox2.Text = resultado TextBox1.Text = "" Case Else Select Case operando Case "+" TextBox2.Text = TextBox2.Text & numero & operando resultado = resultado + numero Case "-" resultado = resultado - numero Case "X" resultado = resultado * numero Case "/" resultado = resultado / numero End Select TextBox1.Text = "" End Select End Sub End Class
|
|
|
68
|
Foros Generales / Noticias / Re: ¿COBOL está muerto? Los datos muestran lo contrario
|
en: 26 Marzo 2013, 21:16 pm
|
Mmm... ¿ qué porque no se estudia cobol ?. Porque para eso se estudia seudocódigo y te sirve para cualquier tipo de lenguaje. ¿ Que porque no se cambia a otro lenguaje ?, porque los bancos no quieren gastar ni un duro en algo que ya funciona y es seguro. Aparte del gasto multimillonario de cambiar toda la infraestructura a otro lenguaje se encuentra el problema de los bugs que puedan salir del nuevo lenguaje y como consecuencia la pérdida de información y transacciones.
|
|
|
70
|
Programación / PHP / Re: AYUDA URGENTE........PHP
|
en: 23 Marzo 2013, 00:37 am
|
No estoy muy seguro porque nunca lo llegue a realizar, pero creo que existe un programa que te oculta la ip del servidor 127.0.0.1 si lo tienes en tu ordenador de casa y poder ponerle otro nombre (el problema viene a ser el de siempre, si no pagas ese programa te pone tu direccionquequiere.algoraro.com es decir que si lo quieres con tudireccion.com necesitas pagar. No recuerdo si se llamaba noip o algo así.
|
|
|
|
|
|
|