Re: Confronto Text box Visual Studio 2019

From	Franz_aRTiglio <franzgol@N0SPAMtin.it>
Newsgroups	it.comp.lang.visual-basic
Subject	Re: Confronto Text box Visual Studio 2019
Date	2022-09-15 19:27 +0200
Organization	Aioe.org NNTP Server
Message-ID	<tfvn55$1fl9$1@gioia.aioe.org> (permalink)
References	<a3339d04-1ee9-4a6a-b4cd-838ec08a0f08n@googlegroups.com> <tft9q8$jkm$1@gioia.aioe.org> <bd4ffb43-75a4-4145-a68f-6dff2b1d266an@googlegroups.com> <ksg6ih5vucm5dd7geijnvss54n34u9d0sd@4ax.com>

Show all headers | View raw

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

Back to it.comp.lang.visual-basic | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Confronto Text box Visual Studio 2019 Marco75 <marcoporzi75@gmail.com> - 2022-09-14 07:13 -0700
  Re: Confronto Text box Visual Studio 2019 Franz_aRTiglio <franzgol@N0SPAMtin.it> - 2022-09-14 21:27 +0200
    Re: Confronto Text box Visual Studio 2019 Marco75 <marcoporzi75@gmail.com> - 2022-09-14 12:36 -0700
    Re: Confronto Text box Visual Studio 2019 Marco75 <marcoporzi75@gmail.com> - 2022-09-15 01:09 -0700
      Re: Confronto Text box Visual Studio 2019 GIO <NewMedia.VR@gmail.com> - 2022-09-15 16:43 +0200
      Re: Confronto Text box Visual Studio 2019 GIO <NewMedia.VR@gmail.com> - 2022-09-15 17:04 +0200
        Re: Confronto Text box Visual Studio 2019 Marco75 <marcoporzi75@gmail.com> - 2022-09-16 00:26 -0700
          Re: Confronto Text box Visual Studio 2019 GIO <NewMedia.VR@gmail.com> - 2022-09-16 10:42 +0200
            Re: Confronto Text box Visual Studio 2019 Marco75 <marcoporzi75@gmail.com> - 2022-09-16 01:58 -0700
              Re: Confronto Text box Visual Studio 2019 Marco75 <marcoporzi75@gmail.com> - 2022-09-16 02:32 -0700
      Re: Confronto Text box Visual Studio 2019 SB <stNOOObenevSPAM@tin.it> - 2022-09-15 17:31 +0200
        Re: Confronto Text box Visual Studio 2019 Franz_aRTiglio <franzgol@N0SPAMtin.it> - 2022-09-15 19:27 +0200
          Re: Confronto Text box Visual Studio 2019 Marco75 <marcoporzi75@gmail.com> - 2022-09-16 01:07 -0700

csiph-web