FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Contar caracteres de un string
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Contar caracteres de un string
Posted: Fri Apr 04, 2014 04:17 PM

Hola a todos,

A ver si me refrescan la memoria.

Como puedo contar el n煤mero de veces que aparece un caracter en un string?

Pregunta de novato pero es que no doy con ella.

Muchas gracias,

Un Saludo

Carlos G.



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

Posts: 610
Joined: Wed Oct 19, 2005 08:20 PM
Re: Contar caracteres de un string
Posted: Fri Apr 04, 2014 05:37 PM
No tiene mucho que ver, pero tal vez puedas adaptar esta funci贸n a lo que necesitas:

Code (fw): Select all Collapse
*************************************************
static FUNCTION QUITAACENTO(cLiteral)
************************************************
Local cTexto:=ALLTRIM(cLiteral)
Local totalcaracteres:= LEN(ALLTRIM(cTexto))
LOCAL lugarcaracter:=1
LOCAL caracter
LOCAL nuevocaracter
聽 聽//
聽 聽WHILE lugarcaracter < totalcaracteres
聽 聽 聽 caracter = SUBSTR(cTexto,lugarcaracter,1)
聽 聽 聽//
聽 聽 聽IF caracter = "?"
聽 聽 聽 聽 nuevocaracter="脩"
聽 聽 聽ELSEIF caracter =" "
聽 聽 聽 聽 nuevocaracter=" "
聽 聽 聽ELSE
聽 聽 聽 聽 nuevocaracter=caracter
聽 聽 聽ENDIF
聽 聽 聽//
聽 聽 聽cTexto=STUFF(cTexto,lugarcaracter,1,nuevocaracter)
聽 聽 聽lugarcaracter++
聽 聽END WHILE
聽 聽//
RETURN ( cTexto )
Un saludo,

Manuel



xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Contar caracteres de un string
Posted: Fri Apr 04, 2014 05:54 PM
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 729
Joined: Tue Oct 18, 2005 06:49 PM
Re: Contar caracteres de un string
Posted: Fri Apr 04, 2014 05:58 PM

Carlos,
Puedes usar la funcion NumAt(cSearch, cString)

Saludos,

George

Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Re: Contar caracteres de un string
Posted: Fri Apr 04, 2014 06:18 PM

Muchas gracias a todos.

La soluci贸n es la que propone George,

funcion NumAt(cSearch, cString)

Un Saludo

Carlos G.



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

Posts: 344
Joined: Sat Jul 22, 2006 09:04 PM
Re: Contar caracteres de un string
Posted: Wed Apr 09, 2014 04:04 PM
Hola he visto esta funci贸n y la verdad me es muy 煤til, recuerdo haberme inventado una hace a帽os y de haber sabido de 茅sta la hubiera utilizado.
Pero mi pregunta es la siguiente: teniendo una string ya sea en una variable o en un browse existe la posibilidad de resaltar esa palabra buscada?
Ej:

cString:="En la ciudad de Venado Tuerto vive Marcelo Roggeri, su hermano Mario Roggeri vive en otra ciudad"
cSearch:="Roggeri"

Al mostrar la cString me gustar铆a saber si se puede resaltar en negrita o fondo de otro color de la siguiente manera:
cString:="En la ciudad de Venado Tuerto vive Marcelo Roggeri, su hermano Mario Roggeri vive en otra ciudad"
Cantidad de palabras encontradas = 2
Algo asi se podr谩?
Saludos
Marcelo
FWH - Harbour - BCC7 - PellesC
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM
Re: Contar caracteres de un string
Posted: Thu Apr 10, 2014 01:44 AM

richedit, html, Scintilla.

dificil en un browse

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
Posts: 145
Joined: Wed Nov 03, 2010 09:16 AM
Re: Contar caracteres de un string
Posted: Fri Apr 11, 2014 11:49 AM

Mira la clase TTagCloud. Hace algo parecido.
Un saludo

Paco Garc铆a

Continue the discussion