Article View: free.it.visual-basic
Article #4035Re: sostituzione carattere in una stringa
From: AlexTM
Date: Wed, 31 Oct 2001 14:51
Date: Wed, 31 Oct 2001 14:51
13 lines
1333 bytes
1333 bytes
Prova ad usare questa funzione...
Private Function VbCrLf_to_BR(ByVal stringa)
Dim i
10 For i = 1 To Len(stringa) - 1
If Mid(stringa, i, 2) = vbCrLf Then stringa = Left(stringa, i - 1) &
"<br>" & Right(stringa, Len(stringa) - (i + 1)): GoTo 10
Next i
VbCrLf_to_BR = stringa
End Function
AlexTM
Technical Details
Message-ID:
<heUD7.15426$7A4.971659@news.infostrada.it>Path:
arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!supernews.com!newsfeed.direct.ca!look.ca!news.maxwell.syr.edu!nntp.infostrada.it!news.infostrada.it!not-for-mailReferences:
<I2fD7.2059$7A4.95946@news.infostrada.it>Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: f94ee,dd9b620ae5bbab61 X-Google-Attributes: gidf94ee,public X-Google-ArrivalTime: 2001-10-31 06:48:33 PST Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!supernews.com!newsfeed.direct.ca!look.ca!news.maxwell.syr.edu!nntp.infostrada.it!news.infostrada.it!not-for-mail From: "AlexTM" <alextm@libero.it> Newsgroups: free.it.visual-basic References: <I2fD7.2059$7A4.95946@news.infostrada.it> Subject: Re: sostituzione carattere in una stringa Lines: 15 X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2600.0000 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000 Message-ID: <heUD7.15426$7A4.971659@news.infostrada.it> Date: Wed, 31 Oct 2001 14:51:57 GMT NNTP-Posting-Host: 151.14.173.136 X-Complaints-To: abuse@iol.it X-Trace: news.infostrada.it 1004539917 151.14.173.136 (Wed, 31 Oct 2001 15:51:57 MET) NNTP-Posting-Date: Wed, 31 Oct 2001 15:51:57 MET Organization: [Infostrada]