🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

Re: Lavorare su stringhe

#2998
From: Gino
Date: Sat, 07 Dec 2002 19:39
20 lines
1529 bytes
key ha scritto:

>Ciao, mi servirebbe un modo per cancellare tutto ci� che non sono lettere
da
>una stringa (compresi gli spazi).

>Es. Partendo da: "12gcta tc-atct 4tc",  mi dovrebbe diventare:
>"gctatcatcttc".

>Grazie!

A = "ehjhsfjsj 23 43ferwD5 i 54.,�Shg"
Matrice = "qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM������"
For i = 1 To Len(A)
    If InStr(1, Matrice, Mid(A, i, 1)) <> 0 Then
        A1 = A1 & Mid(A, i, 1)
    End If
Next i
--
gino
Technical Details
Message-ID: <y7sI9.68102$3l.1889515@twister1.libero.it>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-06!sn-xit-08!supernews.com!news.tele.dk!news.tele.dk!small.news.tele.dk!news.mailgate.org!nntp.infostrada.it!twister1.libero.it.POSTED!not-for-mail
References: <yb7I9.66028$2B1.1774275@twister2.libero.it>

Show Full Headers
Complete Article Headers
X-Google-Language: ITALIAN,ASCII
X-Google-Thread: f94ee,e6a147c6de143e3f
X-Google-Attributes: gidf94ee,public
X-Google-ArrivalTime: 2002-12-07 11:39:09 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-06!sn-xit-08!supernews.com!news.tele.dk!news.tele.dk!small.news.tele.dk!news.mailgate.org!nntp.infostrada.it!twister1.libero.it.POSTED!not-for-mail
From: "Gino" <ugino@libero.it>
Newsgroups: free.it.visual-basic
References: <yb7I9.66028$2B1.1774275@twister2.libero.it>
Subject: Re: Lavorare su stringhe
Lines: 22
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1106
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
Message-ID: <y7sI9.68102$3l.1889515@twister1.libero.it>
Date: Sat, 07 Dec 2002 19:39:10 GMT
NNTP-Posting-Host: 151.25.105.72
X-Complaints-To: abuse@libero.it
X-Trace: twister1.libero.it 1039289950 151.25.105.72 (Sat, 07 Dec 2002 20:39:10 MET)
NNTP-Posting-Date: Sat, 07 Dec 2002 20:39:10 MET
Organization: [Infostrada]