Buscar uma virgula no GET

[marcos.gurupi]

Caros, deve ser facil mas como faco para achar uma virgula em uma string?

Estou usando assim mas ele soh encontra se a virgula tiver no inicio da string.

Código: Selecionar todos

Local aArray := {Alltrim(xobs01),Alltrim(xobs02),Alltrim(xobs03),Alltrim(xobs04)} 
If ASCAN(aArray,",")>0

Marcos Roberto.

[marcos.gurupi]

Desculpe ocupar o tempo de vcs, ultimamente estou batendo o escanteio e correndo para cabecear isso me faz ficar fazendo essas perguntar indiotas. Achei aqui. AT(",",Obs01)>0

Marcos Roberto.

[Maligno]

Não seja tão duro consigo mesmo. Nenhuma dúvida é idiota. Se tivesse visto antes, até teria respondido, mas você mesmo já conseguiu resolver. Seja a dúvida que for, precisando, compartilhe-a com todos.

[gvc]

Só para constar, se vc quer saber se uma string esta contida em outra.

? "A" $ "ABC" // Result: .T.
? "a" $ "ABC" // Result: .F.

e é claro, no [x]Harbour, já verificando array tb:

PROCEDURE Main()
LOCAL cString := "xHarbour"

? "X" $ cString // result: .F.
? "arb" $ cString // result: .T.
? 1 $ { 3, 2, 1 } // result: .T.
RETURN