Visualizzazione dei risultati da 1 a 4 su 4
  1. #1
    Utente di HTML.it L'avatar di munshun
    Registrato dal
    Sep 2002
    Messaggi
    102

    [VB6] - Sintassi funzione Mid()

    Ciao a tutti,

    sono un newbie di visual basic e sto iniziando a sviluppare piccole applicazioni ( per il momento mi con le stringhe ). Il problema è proprio questo: l'estrazione di una parte di stringa. Mi spieago meglio. Io ho una stringa in questo formato:

    "1","1","2","1024","B","512"

    e devo estrarre ogni singolo valore ( per tutta la riga ). Per adesso sono riuscito ad estrarre il primo e l'ultimo ( funzioni left e right), ma non riesco ad estrarre quelle nel mezzo tramite la funzione mid. In particolare volevo sapere se la funzione mid in questo caso conteggia anche gli apici oppure no, e se avete qualche consiglio da darmi per questo problema.

    Grazie per l'aiuto.

    :metallica

    while(!$notte > 5:00)
    {$_GET['PHP_CODE'];}

  2. #2
    Utente di HTML.it L'avatar di Mychy
    Registrato dal
    Oct 2000
    Messaggi
    794
    Mid(string, N°carattere da cui iniziare il prelievo, N°caratteri da prelevare)

    Aiutati con Len(stringa) restituisce il numero di caratteri di una stringa

    Riguardo gli apici credo che siano compresi.

    Non sarebbe meglio un array?

  3. #3
    Utente di HTML.it L'avatar di munshun
    Registrato dal
    Sep 2002
    Messaggi
    102
    Grazie per l'aiuto Michy, ho risolto diversamente cambiando il formato della stringa, eliminando gli apici per ogni singolo elemento. Per quanto riguarda l'array, non mi sarebbe convenuto (credo) dato che la lunghezza della stringa varia al massimo di un carattere ( e poi ancora gli array in VB li devo studiare ).

    Grazie ancora per il consiglio, mi hai dato anche un'idea. :sexpulp:

    :metallica

    while(!$notte > 5:00)
    {$_GET['PHP_CODE'];}

  4. #4
    Utente di HTML.it L'avatar di Toeke
    Registrato dal
    Aug 2002
    Messaggi
    348
    In questo caso ti consiglierei di usare la funzione split()

    codice:
    Dim i               As Integer
    Dim SStr            As String
    Dim a
    SStr = Text1.Text
    a = Split(SStr, ",")
    For i = 0 To UBound(a)
      MsgBox a(i)
    Next
    Toeke

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.