Phorum.com.gr

Έχω πάθει κολούμπριο.
Πρόκειται για το εξής απλό εν ολίγοις:

Έχουμε

u$ ="1 0 1 0 "

ένα στρινγκάκι και θέλω να το κάνω αρχειο στο δίσκο.

Λέω:

if dir$(filename$)<> ''' then kill filename$ (αν υπάρχει από πριν να το σβήσει)
open filename$ for binary as #1
put #1,1, u$
close

και ανοίγω το file με το notepad και περιέχει garbage "----,-%%f-%-%", κάτι τέτοια.
Κάνω και interrupt να τσεκάρω το προοριζόμενο για σώσιμο u$, σωστό είναι.

Τι μπορεί να έχει παίξει ;

Γράφω τώρα:

open filename$ for output as #1
print #1, u$
close

και το σώνει κανονικά.
Αλλά έπρεπε και με το "open for binary" και με το "open for binary" έσωνε μέρες τώρα που κάνω δοκιμές.
Τι το έπιασε ;

Να τολμήσω να ρωτήσω γιατί VB6; Γιατί αγόρι μου το κάνεις αυτό στον εαυτό σου;

klg έγραψε: ↑

07 Σεπ 2019, 10:18

Να τολμήσω να ρωτήσω γιατί VB6; Γιατί αγόρι μου το κάνεις αυτό στον εαυτό σου;

Αυτήν ξέρει αυτή εμπιστεύεται...

OP, μάθε python.

klg έγραψε: ↑

07 Σεπ 2019, 10:18

Να τολμήσω να ρωτήσω γιατί VB6; Γιατί αγόρι μου το κάνεις αυτό στον εαυτό σου;

Έχω vb.net εκδόσεως 2004 με την οποία έχω φτιάξει μεγάλο πρόγραμμα - ήταν στο δώρο-cd μιάς εφημερίδας.
Αλλά είναι αίσχος.
Δεν μπορείς να φτιάξεις element arrays, δεν-δεν-δεν, έχει γίνει downgrade καθώς και οι μετά το 2004 εκδόσεις τα ίδια κάνουν.
Καλύτερα κουμπιά μόνο έχει.

Τώρα γιατί την κάνει αυτή την ανωμαλία ;
Αλλά το computer μου έκανε κι άλλη τρέλα.
Φτιάχνω με άλλο εργαλείο ένα αρχειάκι txt και το ονομάζω 07-09-2019.
Ανοίγω το my computer, άφαντο !
Μετά από πολλές προσπάθειες αποφασίζω να το ονομάσω 08-07-2019.
Αυτό το βλέπω στα recent.
Το κάνω rename 07-09-2019 και μου προσθέτει ένα (2) ( 07-09-20199(2) ) - δε λέει κάν "file exists''.
Το δε 07-09-2019 το αρχικό το είχε κάπου στο βάθος νομίζω.

parafrwn έγραψε: ↑

07 Σεπ 2019, 11:42

OP, μάθε python.

Χουργιατς έγραψε: ↑

07 Σεπ 2019, 12:05

parafrwn έγραψε: ↑

07 Σεπ 2019, 11:42

OP, μάθε python.

wooded glade έγραψε: ↑

07 Σεπ 2019, 11:57

Έχω vb.net εκδόσεως 2004 ήταν στο δώρο-cd μιάς εφημερίδας.