Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > it.comp.lang.visual-basic > #19994

Re: Confronto Text box Visual Studio 2019

Show all headers | View raw

Il giorno giovedì 15 settembre 2022 alle 19:25:03 UTC+2 Franz_aRTiglio ha scritto:
> Il 15/09/2022, SB ha detto :
> > Il giorno Thu, 15 Sep 2022 01:09:52 -0700 (PDT), Marco75 
> > <marcop...@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

ho provato questo codice, ad ogni click scrive 86 e comunque anche se le versioni sono uguali continua ad indicare che non lo sono, la parte di codice con Len mi dice che hanno lunghezza diversa ma non è così:
se leggo la versione dell'app è V 1.0.6.4
se leggo la versione dal file è V 1.0.6.4
quindi sono lunghi uguali!

mi sembra strano che sia così complesso confrontare 2 stringhe!
Marco

Back to it.comp.lang.visual-basic | Previous | Next — Previous 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