Line Input (VB6)

[amorealex]

Παίδες, λίγη βοήθεια please.

 

Έχω ένα txt αρχείο με δεδομένα της μορφής:

 

,abac scale,Κλίμακα Αβακίου,

,abeam,Εκτροπή,

,abort,Ματαίωση,

,abrasion,Απόξεση,

,absolute altimeter,Απόλυτο Υψομετρικό Όργανο,

,absolute altitude,Απόλυτο Ύψος,

κ.ο.κ.

 

Θέλω να γεμίσω ένα Combo box με τις Αγγλικές λέξεις (χωρίς τα κόματα) και όταν επιλέξω μια λέξη να μου βγάζει την αντίστοιχη μετάφρασή της σ' ένα Text box (πάλι χωρίς κόματα).

Δηλαδή να επιλέγω από το Combo πχ abort και να μου εμφανίσει στο Text box Ματαίωση.

 

Μέχρι στιγμής έχω καταφέρει να γεμίσω το Combo με τις Αγγλικές λέξεις, αλλά έχω κολλήσει παρακάτω.

>Private Sub Form_Load()
   Open "INPUT_B.txt" For Input As #1
   Do While Not EOF(1)
       Line Input #1, TextLine
              
       Pinakas = Split(TextLine, ",")
       Combo1.AddItem Pinakas(1)
   Loop
       Close #1
End Sub

[xarris1988]

Φιλε αν μπορεις ανεβασε ενα zipaki με ολα τα αρχεια (κωδικα κ αρχειο με λεξεις).

[lefi]

Το κοιτάζω και τον κώδικα και το πρόβλημα, ο κώδικας που έχεις έχει λάθη:

1)ο pinakas που είναι δηλωμένος

2)Στο Line Input #1, TextLine εμένα μου έβγαλε ένα σφάλμα που δεν το κατάλαβα σε εσένα δεν ξέρω αν το έβγαλε.

αν μπορείς κάνε μια στοιχιώδη εκσφαλμάτωση και αν ανεβάσεις και το zipaki που είπε ο xarris1988 ακόμη καλήτερα.