nessuno (Normal User)
Guru^2
Messaggi: 6388
Iscritto: 03/01/2010
|
Succede perché il testo di quel file è codificato in Unicode e VB6 non supporta l'Unicode (essendo un linguaggio ormai obsoleto)
Prova con questo rimedio (che non è valido in tutti i casi)
Codice sorgente - presumibilmente VB.NET |
Open "c:\test.txt" & nomefile For Input As #1 Do While Not EOF(1) Line Input #1, testomio testomio = Replace$(testomio, Chr$(226) & Chr$(130) & Chr$(172), "€") Text1.Text = testomio & vbCrLf & Text1.Text Loop Close #1
|
Ultima modifica effettuata da nessuno il 26/10/2011 alle 9:29
Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità. |