Strip comments from a string: Difference between revisions

Content deleted Content added

Inline

@@ Line 354: / Line 354: @@
 }</lang>
-=={{header|BBC BASIC}}==
+=={{header|ANSI BASIC}}==
+<lang ansibasic>100 DECLARE EXTERNAL FUNCTION FNstripcomment$
-<lang bbcbasic>      marker$ = "#;"
+LET marker$="#;"
-      PRINT FNstripcomment("apples, pears # and bananas", marker$)
-      PRINT FNstripcomment("apples, pears ; and bananas", marker$)
+PRINT """";FNstripcomment$("apples, pears # and bananas", marker$);""""
-      PRINT FNstripcomment("   apples, pears   ", marker$)
+PRINT """";FNstripcomment$("apples, pears ; and bananas", marker$);""""
+PRINT """";FNstripcomment$("   apples, pears   ", marker$);""""
-      END
+END
+!
-      DEF FNstripcomment(text$, delim$)
+EXTERNAL FUNCTION FNstripcomment$(text$, delim$)
-      LOCAL I%, D%
-      FOR I% = 1 TO LEN(delim$)
+FOR I=1 TO LEN(delim$)
-        D% = INSTR(text$, MID$(delim$, I%, 1))
+LET D = POS(text$, delim$(I:I))
-        IF D% text$ = LEFT$(text$, D%-1)
+IF D>0 THEN LET text$ = text$(1:D-1)
-      NEXT I%
+NEXT I
+LET FNstripcomment$=RTRIM$(text$)
-      WHILE ASC(text$) = 32 text$ = MID$(text$,2) : ENDWHILE
+END FUNCTION</lang>
-      WHILE LEFT$(text$) = " " text$ = RIGHT$(text$) : ENDWHILE
-      = text$</lang>
 =={{header|Bracmat}}==