Even if we can't include all the files in the base image, we can sometimes include some of the larger files that we would otherwise have to download, and we can also sometimes remove the most time-consuming steps. This can help a lot with reducing deployment times.
COURSE of the MONTH
12 days, 7 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
How can I retreive (and select) ONLY the top line in a rich text edit box?
Posted on 2012-12-22
In a regular edit box you can just use mline, but this does not seem to work in a rich text edit box accurately, due to non fixed width line of text (of course). I need to do a line by line scan based on only what is in shown in the window in a rich text edit box control on a form.
I tried setting the position in the RTF box then using KEYBOARD '{SHIFT + END}', but windows 7 has issues with this I think, and I would like to do this a better way anyway.
So in short I need a guaranteed way to retrieve only the first line of text in a rich text edit box, then only the second, then third etc.
Thanks again in advance!!
BC
I tried setting the position in the RTF box then using KEYBOARD '{SHIFT + END}', but windows 7 has issues with this I think, and I would like to do this a better way anyway.
So in short I need a guaranteed way to retrieve only the first line of text in a rich text edit box, then only the second, then third etc.
Thanks again in advance!!
BC
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
2
2-
2
- +1
7 Comments
Active 5 days ago
Please define the first line. If it's surrounded by delimiters then you can use the Search or Find word. Can you use Non-Wrap?
We need more information to help you. Can you post a sample?
We need more information to help you. Can you post a sample?
Active 2 days ago
It won't be surrounded by delimiters. I can't have the user doing that kind of work
On a form place a rich text edit box, with a paragraph of text in it, then retreive the text line by line as you see it visually. This is what I want to do.
On a form place a rich text edit box, with a paragraph of text in it, then retreive the text line by line as you see it visually. This is what I want to do.
Active 1 day ago
The question is, what you want to achieve on a larger scale?
Eg, the detail problem of finding out the single lines may be part of a solution to print RTF as show in the RTFEditbox, and the solution may be much simpler than trying to figure out the single lines and putting them in a memo to print, but simply put an RTF control with the right dimensions into an FRX.
Here is a similar problem about finding out a line number http://www.daniweb.com/software-development/visual-basic-4-5-6/threads/413375/selecting-entire-linerow-in-richtextbox#
It points to some details of interest for your problem, if you really want to stay with solving it instead of replanning on the larger scale. In short: It's comlicated.
Helpful properties are rtfbox.Multiline, if that is .F. you can simply do ALINES on the RTF full text and will have the text lines. If it's .T. you have automatic line breaks and then SelStart, SelLength and rtfbox.GetLineFromChar() can help you find out how far you have to go into the left and right direction from a current cursor position to catch that current line, and The first line of course always starts at SelStart=0 (or 1, but you'll figure that out, if 0 is not allowed) and SelLength=0 puts the cursor right at the beginning. Now you could loop until rtfbox.GetLineFromChar() returns the next line, then take one step back and you have the first line.
I'm not able to do that for you right now, as I am at Win7 without the RTF control and I think you can aim at your problem with this info on your own, now.
Bye, Olaf.
Eg, the detail problem of finding out the single lines may be part of a solution to print RTF as show in the RTFEditbox, and the solution may be much simpler than trying to figure out the single lines and putting them in a memo to print, but simply put an RTF control with the right dimensions into an FRX.
Here is a similar problem about finding out a line number http://www.daniweb.com/software-development/visual-basic-4-5-6/threads/413375/selecting-entire-linerow-in-richtextbox#
It points to some details of interest for your problem, if you really want to stay with solving it instead of replanning on the larger scale. In short: It's comlicated.
Helpful properties are rtfbox.Multiline, if that is .F. you can simply do ALINES on the RTF full text and will have the text lines. If it's .T. you have automatic line breaks and then SelStart, SelLength and rtfbox.GetLineFromChar() can help you find out how far you have to go into the left and right direction from a current cursor position to catch that current line, and The first line of course always starts at SelStart=0 (or 1, but you'll figure that out, if 0 is not allowed) and SelLength=0 puts the cursor right at the beginning. Now you could loop until rtfbox.GetLineFromChar() returns the next line, then take one step back and you have the first line.
I'm not able to do that for you right now, as I am at Win7 without the RTF control and I think you can aim at your problem with this info on your own, now.
Bye, Olaf.
Active today
To retrieve the top line in RTF box control is relatively easy:
THISFORM.GetRTF1stLine(THI
To retrieve other lines just needs a small update:
You may optimize the code for additional lines by passing the character position on which the GetLineFromChar should start.
*-- Method GetRTF1stLine
LPARAMETERS loRTF
LOCAL lnI, lcRetVal
lcRetVal = loRTF.text
FOR lnI = 1 TO LEN(m.lcRetVal)
IF loRTF.GetLineFromChar(m.lnI) > 0
lcRetVal = LEFT(m.lcRetVal, m.lnI)
EXIT
ENDIF
NEXT
WAIT WINDOW m.lcRetVal
RETURN m.lcRetVal
THISFORM.GetRTF1stLine(THI
To retrieve other lines just needs a small update:
LPARAMETERS loRTF, lnLine
IF lnLine < 1
RETURN ''
ENDIF
LOCAL lnI, lcRetVal, lnStartPos
lcRetVal = ''
lnStartPos = LEN(loRTF.text) + 1
FOR lnI = 1 TO LEN(loRTF.text)
IF loRTF.GetLineFromChar(m.lnI) >= m.lnLine - 1
lnStartPos = m.lnI
lcRetVal = SUBSTR(loRTF.text, m.lnStartPos)
EXIT
ENDIF
NEXT
FOR lnI = m.lnStartPos+1 TO LEN(loRTF.text)
IF loRTF.GetLineFromChar(m.lnI) > m.lnLine - 1
lcRetVal = LEFT(m.lcRetVal, m.lnI-m.lnStartPos+1)
loRtf.SelStart = m.lnStartPos-1
loRtf.SelLength = m.lnI-m.lnStartPos+1
EXIT
ENDIF
NEXT
WAIT WINDOW m.lcRetVal
RETURN m.lcRetVal
You may optimize the code for additional lines by passing the character position on which the GetLineFromChar should start.
Active today
Code to retrieve and select given line revised:
LPARAMETERS loRTF, lnLine
IF lnLine < 1
RETURN ''
ENDIF
LOCAL lnI, lcRetVal, lnStartPos
lcRetVal = ''
lnStartPos = LEN(loRTF.text) + 1
FOR lnI = 0 TO LEN(loRTF.text)
IF loRTF.GetLineFromChar(m.lnI) > m.lnLine - 2
lnStartPos = m.lnI
lcRetVal = SUBSTR(loRTF.text, m.lnStartPos+1)
EXIT
ENDIF
NEXT
FOR lnI = m.lnStartPos+1 TO LEN(loRTF.text)
IF loRTF.GetLineFromChar(m.lnI) > m.lnLine - 1
lcRetVal = LEFT(m.lcRetVal, m.lnI-m.lnStartPos)
loRtf.SelStart = m.lnStartPos
loRtf.SelLength = m.lnI-m.lnStartPos
EXIT
ENDIF
NEXT
WAIT WINDOW m.lcRetVal
RETURN m.lcRetVal
Featured Post
Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Microsoft Visual FoxPro (short VFP) is a programming language with it’s own IDE and database, ranking somewhat between Access and VB.NET + SQL Server (Express).
Product Description: http://msdn.microsoft.com/en-us/vfoxpro/default.aspx (http://msd…
We are witnesses that everyone is saying that our children shouldn't "play" with a technology because it is dangerous. This article is going to prove that they are wrong.
Have you created a query with information for a calendar? ... and then, abra-cadabra, the calendar is done?! I am going to show you how to make that happen.
Visualize your data! ... really see it
To use the code to create a calendar from a q…
In this video, Percona Solutions Engineer Barrett Chambers discusses some of the basic syntax differences between MySQL and MongoDB.
To learn more check out our webinar on MongoDB administration for MySQL DBA: https://www.percona.com/resources/we…
Suggested Courses
Course of the Month12 days, 7 hours left to enroll
777 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.