remove using replace function

hi,

I wanna remove a line from a textbox and I use the following code

VB Code:

ln = "e.g Line 3"
Text1 = Replace(Text1, ln, vbnullstring)

I know it wont work but just to make the idea clear to you

what should I pass to the replace parameter so that it removes that line completely :D

thanks

Why not use

VB Code:

text1.text = ""

:p

it wont remove that line :p

the multiline property of the textbox is true & if you replace it with "" a blank line will remain there :rolleyes:

i don't know how to do it using Replace, but i can do it using the Split command

VB Code:

Dim test As String, remove() As String, line As Integer
    
    test = "remove" & vbCrLf & "the next line!" & vbCrLf & "abcdefghi"
    line = 3 ' -> we want to remove line number 3
 
    remove = Split(test, vbCrLf)
    For i = 0 To UBound(remove)
        If i <> (line - 1) Then ' -> arrays begin with 0, not 1
            Text1.Text = Text1.Text & remove(i) & vbCrLf
        End If
    Next i

maybe this would be good as a backup if you couldn't find out how with the Replace command :)

hello Walter

the problem is that I dont know the line number

I just know the text of the line I wanna remove

oh, i see now! i thought you knew the specific line you wanted to remove. this seems to work for me:

VB Code:

Dim test As String
    test = "remove" & vbCrLf & "the next line!" & vbCrLf & "abcdefghi"
    test = Replace(test, "abcdefghi", "")
    test = Mid(test, 1, Len(test) - 2)
    Text1.Text = test

oh! it doesn't work

try this

VB Code:

Dim test As String
test = "remove" & vbCrLf & "the next line!" & vbCrLf & "abcdefghi"
test = Replace(test, "the next line!", "")
test = Mid(test, 1, Len(test) - 2)
Text1.Text = test

i beg your pardon :rolleyes:

you didn't specify whether it was the last line or not. but it works in theory ;) just change it so that it concacenates the rest of the string after it's removed the line