🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: free.it.visual-basic
Article #1199

Line Input & Print

#1199
From: -- El Cifi --
Date: Thu, 22 Jul 2004 09:47
37 lines
2103 bytes
Ciao a tutti,
    queste 2 righe mi stanno facendo impazzire:

                Line Input #2, TextLine     ' Assegna la riga a una
variabile.
                Print #1, TextLine            'Copia la riga del file #2 nel
file #1

Risultato:

-contenuto del file #2
00/00/00 00:00            100,00         ,00         ,00         ,00
09/07/04 21:09    AB        1,00         ,00         ,00         ,00

-contenuto copiato nel file #1
00/00/00 00:00          100,00         ,00         ,00         ,00
09/07/04 21:09    AB        1,00         ,00         ,00         ,00

dove sono finiti i due caratteri della prima riga tra 00:00 e 100,00????
Grazie mille ciao.

ah dimenticavo il file #2 lo scrivo cos�:
With Tabella(i)
        Print #1, .Data & vbTab & Format(.N_ric, "!@@@") &
Format(Format(.Pesi(0), "#.00"), "@@@@@@@@@@@") & " " &
Format(Format(.Pesi(1), "#.00"), "@@@@@@@@@@@") & " " &
Format(Format(.Pesi(2), "#.00"), "@@@@@@@@@@@") & " " &
Format(Format(.Pesi(3), "#.00"), "@@@@@@@@@@@")
End With

e tabella � definita come:

Type TipoTabe
    N_ric As String * 2      'numero ricetta
    Data As String * 17      'data e ora
    Pesi(0 To 3) As Single 'Kg
End Type
Technical Details
Message-ID: <cdo2dr$qgn$1@lacerta.tiscalinet.it>
Path: arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!proxad.net!fr.ip.ndsoftware.net!news2.euro.net!news.mailgate.org!draco.tiscalinet.it!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Thread: f94ee,6f369c0812edc8dc,start
X-Google-Attributes: gidf94ee,public
X-Google-Language: ITALIAN,ASCII
Path: arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!proxad.net!fr.ip.ndsoftware.net!news2.euro.net!news.mailgate.org!draco.tiscalinet.it!not-for-mail
From: "-- El Cifi --" <mioCognome@mioDominio.miaNazione>
Newsgroups: free.it.visual-basic
Subject: Line Input & Print
Date: Thu, 22 Jul 2004 11:47:04 +0200
Organization: Tiscali Spa
Lines: 39
Message-ID: <cdo2dr$qgn$1@lacerta.tiscalinet.it>
NNTP-Posting-Host: ppp-62-10-77-97.dialup.tiscali.it
X-Trace: lacerta.tiscalinet.it 1090489595 27159 62.10.77.97 (22 Jul 2004 09:46:35 GMT)
X-Complaints-To: abuse@tiscali.it
NNTP-Posting-Date: 22 Jul 2004 09:46:35 GMT
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1409
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1409