Befehlssatz ?

[gfz]

Hallo Leute!
Gibt es in LC einen Befehl, der mir die Zeilennummer einer zeilenorientierten Liste ausgibt, in der ein Suchbegriff gefunden wurde?
Oder geht das nur mit einer selbstgebauten Funktion mit Schleife?
LG,
Georg

[pderks]

Hallo, Georg,

function pda_LineNu Chain,DataX
  return pda_CoL(char 1 to The Offset(cr & Chain & cr,cr & DataX & cr) of DataX)
end pda_LineNu
---
function pda_LineNu_Ending Chain,DataX
  return pda_CoL(char 1 to The Offset(Chain & cr,DataX & cr) of DataX)
end pda_LineNu_Ending
---
function pda_LineNu_Leading Chain,DataX
  return pda_CoL(char 1 to The Offset(cr & Chain,cr & DataX) of DataX)
end pda_LineNu_Leading
---
function pda_LineNu_Mid Chain,DataX
  return pda_CoL(char 1 to The Offset(Chain,DataX) of DataX)
end pda_LineNu_Mid
---
on pda_CoL DataX
return the Number of lines in DataX
end pda_CoL

Könnte reichen ?

Peter

[Klaus Major]

Oder mit etwas weniger Overkill:

...
put "was auch immer" into tSuchString
put fld "wo ich suchen will" into tSourceString
answer tSuchString && "wurde gefunden in Zeile:" && lineoffest(tSuchString,tSourceString)
...

Gruß

Klaus

[gfz]

Cool – Peter und Klaus, danke für Eure Tipps.
LG,
Georg

[Autor]

Beiträge