Wenas.. estuve intentando hacer un pekeño programa para que responder rapidamente las trivias... pero lo que sucede es que al buscar las preguntas tarda muchisimo al ser tan grande donde busca (11mb)
Private Sub Command1_Click()
Dim buskeda As Integer
If pregunta = "" Then
buskeda = InStr(1, RichTextBox1.Text, Text1.Text)
If buskeda > 0 Then
pregunta = Mid(RichTextBox1.Text, buskeda)
terminarespuesta = InStr(1, pregunta, vbCrLf) - 1
respuesta = Left(pregunta, terminarespuesta)
empiezarespuesta = InStr(1, respuesta, "*") + 1
respuesta = Mid(respuesta, empiezarespuesta)
Text2.Text = respuesta
End If
Else
buskeda = InStr(1, pregunta, Text1.Text)
If buskeda > 0 Then
pregunta = Mid(pregunta, buskeda)
terminarespuesta = InStr(1, pregunta, vbCrLf)
respuesta = Left(pregunta, terminarespuesta)
empiezarespuesta = InStr(1, respuesta, "*")
respuesta = Mid(respuesta, empiezarespuesta)
Text2.Text = respuesta
End If
End If
End Sub
Private Sub Command2_Click()
respuesta = ""
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Form_Load()
Path = App.Path & "\preguntas.txt"
Dim Extraido As String
Open (Path) For Binary As #1
Extraido = Space(LOF(1))
Get #1, , Extraido
Close #1
RichTextBox1.Text = Extraido
End Sub
ahi esta el code.. pero el instr es lo que hace que tarde muchisimo... alguna solucion para que sea rapido??
salu2!
Mostrar Temas
