Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Boa noite galera estou com o seguinte problema preciso q o meu programa crie arquivo txt apartir do que aparece no combox " o programa é o seguinte no form tenho um combox q busca referencia em um arquivo txt e 3 caixas de txt uma para colocar o numero do aluno,outra a nota 1 , e outra a nota 2 quero q o programa gere arquivo txt xom esses dados para cada matéria clicada"
o código fonte q criei é o seguinte:
Option Explicit
Dim naluno As Integer
Dim n1 As Single
Dim n2 As Single
Private Sub CMD_GRAVAR_Click()
Dim x As String
Dim NOME As String
Dim PORTUGUES As String
Dim MATEMATICA As String
If cbo_disc.Text = MATEMATICA Then
NOME = "MATEMATICA" & ".txt"
If Dir$(NOME) = "" Then
MsgBox "Não existe"
Exit Sub
Open NOME For Input As #1
Else
Open NOME For Append As #1
End If
Do While Not EOF(1)
Line Input #1, x
naluno = Left(x, 3)
n1 = CSng(Mid(x, 4, 3))
n2 = CSng(Mid(x, 5, 3))
Loop
Open NOME For Output As #1
Print #1, naluno
Print #1, n1
Print #1, n2
Close #1
End If
Unload Me
End Sub
Private Sub Form_Load()
Dim t As String
Dim NOME As String
Dim a_line As String
Open "DICIPLINA.txt" For Input As #1
Line Input #1, t
cbo_disc.AddItem t
Line Input #1, t
cbo_disc.AddItem t
Line Input #1, t
cbo_disc.AddItem t
Line Input #1, t
cbo_disc.AddItem t
Line Input #1, t
cbo_disc.AddItem t
Do While Not EOF(1) 'Vai para fim de arquivo
Line Input #1, t 'Ler a linha de dados do arquivo
a_line = a_line + 1 'Pula para a linha seguinte do arquivo cada vez que o laço e repitido, até chegar a última linha
cbo_disc.AddItem a_line 'Preenche o ComboBox com os dados do adicionando cada linha até a última linha do arquivo
Loop 'Finaliza o Laço
Close #1 'Fechar o arquivo
End Sub
Private Sub TXT_ALUNO_KeyPress(KeyAscii As Integer)
If KeyAscii = 46 Then KeyAscii = 44
If KeyAscii <> 8 Then
End If
Select Case KeyAscii
Case 48 To 57, 8, 44, 46
Case Else
KeyAscii = 0
End SelectPrivate Sub TXT_N1_KeyPress(KeyAscii As Integer)
If KeyAscii = 46 Then KeyAscii = 44
If KeyAscii <> 8 Then
End If
Select Case KeyAscii
Case 48 To 57, 8, 44, 46
Case Else
KeyAscii = 0
End SelectPrivate Sub TXT_N2_KeyPress(KeyAscii As Integer)
If KeyAscii = 46 Then KeyAscii = 44
If KeyAscii <> 8 Then
End If
Select Case KeyAscii
Case 48 To 57, 8, 44, 46
Case Else
KeyAscii = 0
End SelectCarregando comentários...