An Very Simplified Example:
(Best viewed in fixed-width font)
(There are many other (and better) ways to do this)
A = A Tall Lad Sold All The Desks
'12345678901234567890123456789 29 characters long
R = Tall Lad Sold All TheThis sub string is to be removed (21 chars
long)
'Remove^ Remove R from within A
X = INSTR$(A, R) 'This will make X = 3
Y = X + LEN(R) 'This will make Y = 3 + 21 = 24
'we want to remove starting from the 'T' in Tall to the 'e' in The
'What we're really doing is:
'...keep everything starting at the beginning up to the 'T' in Tall but not
including it
'...and starting after the 'e' in The to the end
B = MID$(A,1,X - 1)'Keep the first part : Position 1...(X-1) = 1..2
C = MID$(A,Y) 'Keep the second part: Position 24 ..end = 24..29
D = B + C 'Combine both together
PRINT D
'result: D = A Desks
-- Original Message ---
From: tobi tobiasboeg...@googlemail.com
To: sundar_...@rediffmail.com, mailing list for gambas users
gambas-user@lists.sourceforge.net
Sent: Tue, 27 Mar 2012 17:06:39 +0200
Subject: Re: [Gambas-user] Delete sentance between words in a file.
hi,
On Mon, 26 Mar 2012, sundar j wrote:
How do i delete a sentence/line between two matching words? For example i
have a long
paragraph starting with ABC-Start and ending with XYZ-End. I need to delete all
the words
including ABC-Start amp; XYZ-End. I have gone through the gambas documentation
and found
replace string function. However it did not do the job as i expected. Any help
is appreciated.
--
This SF email is sponsosred by:
Try Windows Azure free for 90 days Click Here
http://p.sf.net/sfu/sfd2d-msazure
___
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
i'd tend to use the Mid$() function. if you got the positions of the two
delimiters it is as easy as concatenating the string on the left of the
beginning delimiter and the string on the right of the right delimiter. code
is
beyond words:
Dim iStart, iEnd As Integer
Dim sRest As String
iStart = InStr(sWholeText, sBegDelim)
iEnd = InStr(sWholeText, sEndDelim, iStart) + Len(sEndDelim)
sRest = Mid$(sWholeText, 0, iStart - 1) Mid$(sWholeText, iEnd)
which then is the parts before and after the found strings.
there may be off-by-one errors, i couldn't try it, but you get the idea.
regards,
tobi
--
This SF email is sponsosred by:
Try Windows Azure free for 90 days Click Here
http://p.sf.net/sfu/sfd2d-msazure
___
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
--- End of Original Message ---
--
This SF email is sponsosred by:
Try Windows Azure free for 90 days Click Here
http://p.sf.net/sfu/sfd2d-msazure
___
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user