remove using replace function

[proff.hacker]

hi,

I wanna remove a line from a textbox and I use the following 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

thanks

[holly]

Why not use

text1.text = ""

[proff.hacker]

it wont remove that line

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

[Walter]

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

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

[proff.hacker]

hello Walter

the problem is that I dont know the line number

I just know the text of the line I wanna remove

[Walter]

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

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

[proff.hacker]

oh! it doesn't work

try this

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

[Walter]

i beg your pardon

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