realBASIC fråga :)

Tråden skapades 2002-09-15 och har fått 2 svar. Det senaste inlägget skrevs 2002-09-16.

1

Skriv svar

2002-09-15 18:29

#1

Björne
Medlem ●
Huddinge
2002-09-15 18:29

Hej!

Hur får man realbasic att kolla på linje 1 i EditField1 och se om det står t ex. hej där?

jag vill ha det såhär (som det skulle se ut i Delphi):

if EditField1.Lines[1] = ´hej´ then begin
//min kod linje 1
//min kod linje 2
end;

Tack,
Björne

Anmäl Ändra Gilla Svara

2002-09-15 23:23

#2

Fredrik Sandebert
Medlem ●
2002-09-15 23:23

Citat:

quote:Skapades ursprungligen av: Björne:
Hur får man realbasic att kolla på linje 1 i EditField1 och se om det står t ex. hej där?

jag vill ha det såhär (som det skulle se ut i Delphi):

if EditField1.Lines[1] = ´hej´ then begin
//min kod linje 1
//min kod linje 2
end;

Din fråga är lite luddigt ställd. Menar du att du vill kolla om texten BÖRJAR med "hej", eller menar du att raden enbart ska innehålla "hej" och en radmatning? Rad 1 är ju inte helt relevant i de frågorna. Men ett sätt att svara på din fråga är detta:

Citat:

code:<pre style="font-size:x-small; font-family: monospace;">if left(editField.text,3) = "hej" then
msgbox "BINGO!"
end</pre>

ett annat är detta:

Citat:

code:<pre style="font-size:x-small; font-family: monospace;">if left(editField.text,4) = ("hej"+chr(13)) then
msgbox "BINGO!"
end</pre>

ett exempel som faktiskt tar med radens nummer:

Citat:

code:<pre style="font-size:x-small; font-family: monospace;">dim a as string
dim rad as integer

rad = 1

a = nthfield(editField.text,chr(13),rad)

if left(a,3) = "hej" then
msgbox "BINGO!"
end</pre>

Svarade detta på frågan?

Anmäl Ändra Gilla Svara

2002-09-16 21:22

#3

Björne
Medlem ●
Huddinge
2002-09-16 21:22

tack, det var:

Citat:

code:<pre style="font-size:x-small; font-family: monospace;">dim a as stringdim rad as integerrad = 1a = nthfield(editField.text,chr(13),rad)if left(a,3) = "hej" then msgbox "BINGO!"end </pre>

jag var ute efter