Visual basic

PROGRAMA DE MANTENIMIENTO DE ARCHIVO DE TEXTOS






‘DECLARACIONES GENERALES
Dim Ruta, LineaData As String
Dim WApe, WNom, WEdad, WSexo, WCiudad, WPeriodo, WModalidad, WPtje As String
DimItem, Cod As Integer

‘PROCESOS INICIALES
Private Sub Form_Load()
LLenarCombos
Ruta = "D:\jvargasll\Desktop\Datos\AGENDA.TXT"
End Sub

‘PREPARANDO EL FORMULARIO
SubLLenarCombos()
CboCiudad.AddItem "Arequipa"
CboCiudad.AddItem "Casma"
CboCiudad.AddItem "Caraz"
CboCiudad.AddItem "Chiclayo"
CboCiudad.AddItem "Chimbote"
CboCiudad.AddItem "Huaraz"CboCiudad.AddItem "Lima"
CboCiudad.AddItem "Piura"
CboCiudad.AddItem "Tarapoto"
CboCiudad.AddItem "Trujillo"
CboCiudad.AddItem "Tumbes"

CboCiudad2.AddItem "Arequipa"
CboCiudad2.AddItem "Casma"CboCiudad2.AddItem "Caraz"
CboCiudad2.AddItem "Chiclayo"
CboCiudad2.AddItem "Chimbote"
CboCiudad2.AddItem "Huaraz"
CboCiudad2.AddItem "Lima"
CboCiudad2.AddItem "Piura"
CboCiudad2.AddItem "Tarapoto"CboCiudad2.AddItem "Trujillo"
CboCiudad2.AddItem "Tumbes"

CboPeriodo.AddItem "2013-2"
CboPeriodo.AddItem "2014-1"
CboPeriodo.AddItem "2014-2"
CboPeriodo.AddItem "2015-1"
CboPeriodo.AddItem "2015-2"CboModalidad.AddItem "Exámen de Admisión" & Space(100) & "/M1"
CboModalidad.AddItem "Premio Excelencia" & Space(100) & "/M2"
CboModalidad.AddItem "Selección Preferente" & Space(100) & "/M3"CboModalidad.AddItem "Complementación Técnica" & Space(100) & "/M4"
CboModalidad.AddItem "Segunda Profesión" & Space(100) & "/M5"
CboModalidad.AddItem "Traslado Externo" & Space(100) & "/M6"
End Sub‘BOTON NUEVO
Private Sub CmdNuevo_Click()
TxtApe = ""
TxtNom = ""
TxtEdad = ""
TxtPtje = ""
TxtApe.SetFocus
End Sub

‘BOTON GRABAR
Private Sub CmdGrabar_Click()
OnError GoTo CtrolError
'*** toma de datos ***
WApe = Trim(UCase(TxtApe))
WNom = Trim(UCase(TxtNom))
WEdad = Val(TxtEdad)
WSexo = Mid(CboSexo, 1, 1)
WCiudad = UCase(CboCiudad)
WPeriodo =...