FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Pregnta sobre cadena de comparacion
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Pregnta sobre cadena de comparacion
Posted: Wed Dec 07, 2011 02:38 PM
Saludos al Forum
regdatos { "tflete" ,"flete" , "tcoco" , "coco"}
Mat3 := "codcia-tflete-tcodanu-tparcia-firma-"

For i = 1 to len(regdatos)
If regdatos[i,1] $mat2
regdatos[i,8] := "1"
endif
Next

Hay una manera de preguntar en una cadena que la busqueda sea exacta..
Tengo regdatos flete,tflete
Mat3 tengo tflete , cuandi lee flete solo tambien me toma tflete como puedo contralar que se exanto la busqueda.
Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Re: Pregnta sobre cadena de comparacion
Posted: Wed Dec 07, 2011 07:41 PM
ruben Dario wrote:Saludos al Forum
regdatos { "tflete" ,"flete" , "tcoco" , "coco"}
Mat3 := "codcia-tflete-tcodanu-tparcia-firma-"

For i = 1 to len(regdatos)
If regdatos[i,1] $mat2
regdatos[i,8] := "1"
endif
Next

Hay una manera de preguntar en una cadena que la busqueda sea exacta..
Tengo regdatos flete,tflete
Mat3 tengo tflete , cuandi lee flete solo tambien me toma tflete como puedo contralar que se exanto la busqueda.


Hola,

Que usas? mat2 ó mat3 ?

quizás:

Mat3 := "-" + "codcia-tflete-tcodanu-tparcia-firma-"


If ("-" + regdatos[i,1] + "-") $ mat2
regdatos[i,8] := "1"
endif

Saludos

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Re: Pregnta sobre cadena de comparacion
Posted: Thu Dec 08, 2011 07:00 PM

Gracias Carlos Funciono.

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

Continue the discussion