Contare le occorrenze.

[laugher]

Devo contare quante occorrenze del carattere a ci sono nella stringa b.

Senza usare REPLACE.

[br1]

Puoi usare Split(b,a) ?

[laugher]

Descrivo meglio il problema che devo affrontare.

Data una stringa devo cercare nella colonna di un database quella che ha + occorrenze di quella stringa.

[br1]

Forse sarebbe possibile con l'uso delle Regular Expression... spunto: http://database.html.it/articoli/leg...-expression/3/

[laugher]

Ho trovato questo e va benissimo. Ho solo un piccolo problema

dim RegEx, Matches
Set RegEx = New RegExp
RegEx.Pattern = lettera
RegEx.Global = True
RegEx.IgnoreCase = True
Set Matches = RegEx.Execute(carte3)
Occorrenza = Matches.Count
Set Matches = Nothing
Set RegEx = Nothing

[laugher]

problema che cerco di risolvere qui.

http://forum.html.it/forum/showthrea...readid=1507628

[optime]

se fai

carte3=oggettoRecordset("nomeColonna")

sei a posto

[laugher]

Originariamente inviato da optime
se fai

carte3=oggettoRecordset("nomeColonna")

sei a posto

Quindi dovrei fare una cosa del genere.

dim contantore
contatore = 0

--- Prendo la colonna

if not rs.eof then --- e questo controllo è essenziale altrimenti il recordset salta

dim sSQLcinque
sSQLcinque = "SELECT giocodipr from TABELLA3"
cn.execute sSQLcinque
OggettoRS("giocodipr")=carte3 --- il valore del campo giocodipr diventa la variabile carte3

For i=1 to len(carte3)

---prendo una lettera per volta della parola inserita nel form che ho chiamato lettera.

lettera = Mid(carte3, i, 1)
sSQLquattro = "UPDATE tabella3 SET giocodisic='"&lettera&"'"
cn.execute sSQLquattro

---conto le occorrenze una lettera per volta in carte3 (che ora è una variabile)

dim RegEx, Matches
Set RegEx = New RegExp
RegEx.Pattern = lettera
RegEx.Global = True
RegEx.IgnoreCase = True
Set Matches = RegEx.Execute(carte3)
Occorrenza = Matches.Count
Set Matches = Nothing
Set RegEx = Nothing
next

--- quando si trova una parola con + lettere presenti, si memorizza il valore nel contatore.

if Occorrenza>contatore
contatore=Occorrenza
end if

si passa al record successivo

rs.movenext

end if

E' una abbozzo di massima e qualche errore ci sarà di sicuro.
Appena torno dalla gita fuori porta ci provo.

[optime]

mia indicazione

carte3=oggettoRecordset("nomeColonna")

tua traduzione

OggettoRS("giocodipr")=carte3 --- il valore del campo giocodipr diventa la variabile carte3

immagino che saprai trovare le differenze

[laugher]

Ho provato a fare il passo + lungo della gamba e sono stato giustamente punito. Devo iniziare dalle basi.

Problema:

voglio stampare il primo record della tabella che sono nel campo carte1 quindi, dopo aver aperto il db:

---codice ---

Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Inetpub\webs\laugherit\mdb-database\database3.mdb;"
rs.Open "tabella2", cn, 3, 3

---fine codice---

e fatto la select

--- codice ---

dim sql, rs, cn
sql = "select Carte1, Carte2, Prese, Giocodipr, GiocodiprA, Prob, Prese1, Prob1, Giocodisic, Presesic, Probsic, Giocodisic1, Presesic1, Probsic1, Carte3, Carte4 from tabella1, tabella2 where carte1='"&carte1&"' and carte2='"&carte2&"' or carte2='"&carte1&"' and carte1='"&carte2&"'"
set rs = cn.execute(sql)

--- fine codice ---

devo mandare a video il primo record che trovo nel campo carte1

---codice ---

dim carte3
carte3 = OggettoRecordSet("carte1")
response.write(carte3)

--- fine codice ---

'nella riga "consigliata" da te: carte3=oggettoRecordset("nomeColonna") che diventa:

carte3 = OggettoRecordSet("carte1")

Mi dà l'errore:

Type mismatch