Hello!
As defined in the control Editor, the string
contains a red color and is Highlight.Breakpoint?
Code:
Dim strFile As String, Ret As String, cnt As String = "0", Er As String = "
"
Dim strc As String, Buf As String, arrstring As String, arr As String[],
sText As String
Dim i As Integer, cont As Integer, ln As Integer
strFile = File1.Key
'=============Routine View===================
If InStr(strFile, "^") = 0
SRCTXT1.Visible = False
SRCTXT.Visible = True
txtInfo.Visible = True
cmbZSH.Visible = False
SRCTXT.Clear
txtInfo.Text = "Now Editing Routine " & "[" & Trim$(strFile) & "]"
cmbRout.Clear 'BreakPoints clear
strFile = Replace(Trim$(strFile), "%", "_") & ".m"
strFile = "cat " & strFile
m.DoRoutine("CatFile^%mweditr", strFile, ByRef Ret, ByRef cnt, ByRef Er)
SRCTXT.Text = Replace(Ret, "\t", " ") ' **** TAB replace in " " ???????
' Label Routine
cmbRout.Clear
arr = Split(SRCTXT.Text, "\n")
For i = 0 To arr.Count - 1
If Highlight.Breakpoint Then ' No work
??????????????????????????????????????????????????
If arr[i] <> "" And Left(arr[i]) <> " " And Left(arr[i]) <> ";" And
Left(arr[i]) <> "\t" Then
arrstring = Split(arr[i], " ")[0]
cmbRout.Add(arrstring)
Endif
End If
Next
Endif
I'll be glad for any help
--
View this message in context:
http://old.nabble.com/Editor-control-tp34167363p34167363.html
Sent from the gambas-user mailing list archive at Nabble.com.
------------------------------------------------------------------------------
Live Security Virtual Conference
Exclusive live event will cover all the ways today's security and
threat landscape has changed and how IT managers can respond. Discussions
will include endpoint security, mobile security and the latest in malware
threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
_______________________________________________
Gambas-user mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/gambas-user
