Path: csiph.com!aioe.org!0+5cDJE07N8qkc1y2hvMew.user.46.165.242.75.POSTED!not-for-mail
From: Franz_aRTiglio <franzgol@N0SPAMtin.it>
Newsgroups: it.comp.lang.visual-basic
Subject: Re: Confronto Text box Visual Studio 2019
Date: Thu, 15 Sep 2022 19:27:03 +0200
Organization: Aioe.org NNTP Server
Message-ID: <tfvn55$1fl9$1@gioia.aioe.org>
References: <a3339d04-1ee9-4a6a-b4cd-838ec08a0f08n@googlegroups.com> <tft9q8$jkm$1@gioia.aioe.org> <bd4ffb43-75a4-4145-a68f-6dff2b1d266an@googlegroups.com> <ksg6ih5vucm5dd7geijnvss54n34u9d0sd@4ax.com>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-15"; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Info: gioia.aioe.org; logging-data="48809"; posting-host="0+5cDJE07N8qkc1y2hvMew.user.gioia.aioe.org"; mail-complaints-to="abuse@aioe.org";
X-Notice: Filtered by postfilter v. 0.9.2
X-ICQ: 1931503972
X-Newsreader: MesNews/1.08.06.00-it
X-Antivirus-Status: Clean
X-Antivirus: AVG (VPS 220915-2, 15/9/2022), Outbound message
Xref: csiph.com it.comp.lang.visual-basic:19992

Il 15/09/2022, SB ha detto :
> Il giorno Thu, 15 Sep 2022 01:09:52 -0700 (PDT), Marco75
> <marcoporzi75@gmail.com> ha scritto:
>
>> 
>> ho provato a gestire i dati in ASCII ma non funziona, mi rende il numero 86 
>> per entrambe le Textbox... ho provato cosė:
>> 
>>        Dim Tb_VersFile As Integer
>>        Tb_VersFile = Asc(Tb_VersioneFile.Text)
>> 
>>        Dim Tb_VersAtt As Integer
>>        Tb_VersAtt = Asc(Tb_VersioneAttuale.Text)
>> 
>> in attesa di gentile risposta provo a lavorarci
>
> La funzione Asc() riporta il l'equivalente ASCII di un carattere.
>
> Per una stringa devi fare una cosa del genere (in VB6, ma credo che .net 
> cambi poco).
>
> Dim ASSCHR% (100)
>
> For i = 1 to len(Tb_VersioneFile.Text)
> 	ASSCHR (i)  =  Asc (Mid (Tb_VersioneFile.Text, i, 1)))
> Next
>
> Fai la stessa cosa anche per l'altra stringa e poi confronti i valori ASCII 
> uno ad uno.

Ottima risposta che integro: anche la textbox ha delle "limitazioni" e
sarebbe meglio fare il confronto sulle variabili e NON sul contenuto
delle textbox:

dim versioneattuale as string
dim versionesalvata as string

versioneattuale = "V " & My.Application.Info.Version.Major & "." & 
My.Application.Info.Version.Minor & "." & 
My.Application.Info.Version.Build & "." & 
My.Application.Info.Version.Revision

Dim sr As StreamReader
sr = File.OpenText("MioPercorso\Testo numero nuova versione da 
pubblicare.txt")
versionesalvata  = sr.ReadToEnd
sr.Close()

If len(versionesalvata) <> len(versioneattuale) then
  debug.print "lunghezza diversa"
end if

dim txtasc as string
For i = 1 to len(versioneattuale)
 txtasc = txtasc & " " & asc(mid(versioneattuale,1)
 debug.print txtasc
next i

txtasc =""
For i = 1 to len(versionesalvata)
 txtasc = txtasc & " " & asc(mid(versionesalvata,1)
 debug.print txtasc
next i