Alex_13
05-07-05, 17:04
Έχω ένα προγραμμα, σε Qbasic, και θέλω να το μετατρέψω σε Visual Basic.
Ξεκίνισα λοιπόν, να το δημιουργώ/μετατρέπω, αν και δεν εχω δουλέψει σχεδόν καθόλου σε VB.
Option Explicit
Private aFile As String
Private aLine As String
---------------------------------------------------------------------<declarations
Private Sub Command1_Click()
Call CreateInputFile
End Sub
---------------------------------------------------------------------<Απλο κουμπάκι με ονομα Command1
Private Sub CreateInputFile()
Dim i As Integer
Dim intIndex As Integer
i = 1
aFile = "C:\output.txt"
aLine = ""
intIndex = 4
'1.'This deletes file if it exists and creates a new one if it doesn't
Open "C:\Input.txt" For Output As intIndex
'get last line from the file
Open "C:\output.txt" For Input As #i
Do
Line Input #i, aLine
Loop While Not EOF(i)
'Write line to output file
Print #intIndex, aLine
MsgBox "operation finished"
Unload Me
End Sub
----------------------------------------------------------------< και ο κώδικας
Αυτό που κατέληξα να κάνω είναι να τοποθετώ στο νέο τεξτ αρχείο την τελευταία γραμμή απο το output.txt. Δεν έχω παίξει με τον κώδικα, αλλά μήπως κάποιος που έχει δουλέψει VB μπορεί να με βοηθήσειι τί να κάνω?
Το κείμενο εισαγωγής θα ειναι της παρακάτω μορφής
(01/01/05 - 15/04/05)
------------------------------------------------------------------------------------------------------------
: 50.10.039 PLIS „ €„
------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------
χχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχ
χχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχ
χχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχ
χχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχ
------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------
τα μόνα που θέλω να πάνε απο την CreateInputFile στον νεο κείμενο, ειναι η περιοχή με τα "χχχχχχχχχ" γραμμή γραμμή, χωρίς σταθερό αριθμό γραμμών.
Ξέρω δεν είναι τίποτα δύσκολο, αλλά δυστιχώς η μη οικειοτητα με την VB, και η μακράν μου απουσία απο οποιαδήποτε γλλώσσσσαα προγραμματισμου με περιορίζουν πάρα πολύ. Οποια βοήθεια είναι ευπρόσδεκτη. Ευχαριστώ
Ξεκίνισα λοιπόν, να το δημιουργώ/μετατρέπω, αν και δεν εχω δουλέψει σχεδόν καθόλου σε VB.
Option Explicit
Private aFile As String
Private aLine As String
---------------------------------------------------------------------<declarations
Private Sub Command1_Click()
Call CreateInputFile
End Sub
---------------------------------------------------------------------<Απλο κουμπάκι με ονομα Command1
Private Sub CreateInputFile()
Dim i As Integer
Dim intIndex As Integer
i = 1
aFile = "C:\output.txt"
aLine = ""
intIndex = 4
'1.'This deletes file if it exists and creates a new one if it doesn't
Open "C:\Input.txt" For Output As intIndex
'get last line from the file
Open "C:\output.txt" For Input As #i
Do
Line Input #i, aLine
Loop While Not EOF(i)
'Write line to output file
Print #intIndex, aLine
MsgBox "operation finished"
Unload Me
End Sub
----------------------------------------------------------------< και ο κώδικας
Αυτό που κατέληξα να κάνω είναι να τοποθετώ στο νέο τεξτ αρχείο την τελευταία γραμμή απο το output.txt. Δεν έχω παίξει με τον κώδικα, αλλά μήπως κάποιος που έχει δουλέψει VB μπορεί να με βοηθήσειι τί να κάνω?
Το κείμενο εισαγωγής θα ειναι της παρακάτω μορφής
(01/01/05 - 15/04/05)
------------------------------------------------------------------------------------------------------------
: 50.10.039 PLIS „ €„
------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------
χχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχ
χχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχ
χχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχ
χχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχχ
------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------
τα μόνα που θέλω να πάνε απο την CreateInputFile στον νεο κείμενο, ειναι η περιοχή με τα "χχχχχχχχχ" γραμμή γραμμή, χωρίς σταθερό αριθμό γραμμών.
Ξέρω δεν είναι τίποτα δύσκολο, αλλά δυστιχώς η μη οικειοτητα με την VB, και η μακράν μου απουσία απο οποιαδήποτε γλλώσσσσαα προγραμματισμου με περιορίζουν πάρα πολύ. Οποια βοήθεια είναι ευπρόσδεκτη. Ευχαριστώ