수다닷컴

아 문제가 생겼어요, 중복된 문자열이 3개가 있으면
맨 처음 문자열만 지워지고
그 뒤에 있는 2개는 그대로에요..

사용법은 Cut(짜를문자열,삭제할문자열)

예 123123야호12312312 에서 야호를 없애고싶다

Msgbox Cut(\123123야호12312312\

Function Cut(Temp As String, Delete As String) As String

Cut = Mid(Temp, 1, InStr(Temp, Delete) - 1) & Mid(Temp, InStr(Temp, Delete) + Len(Delete), Len(Temp))
End Function

가나다 와 abc는 예로 든거라 제가 원하는 문자열이 안나오네요 ..

그리고 문자열의 길이는 다 달라서..

그렇군요..ㅠ

전 보통작업하고 메박으로 결과를 보는 타입이라.

일부로 저렇게햇는데..

줄넘김에서 좀 오류가 나서 조금 수정해드렸어요ㅠㅠ
temp도 텍스트같고..ㅠ

? 구지 한번더 여기로적는이유는 ? ㅋㅋ.

원리는 처음발견된 abc를 없애고 처음발견된 abc의 문자 앞의 문자열과 뒤의 문자열을 합친거예요

바수다님의 말씀은

private sub command1_click()
temp = mid(text1.text, 1, instr(text1.text, \abc\) - 1) & mid(text1.text, instr(text1.text, \abc\) + 3, len(text1.text))
text1.text = temp
end sub

private sub form_load()
text1.text = \가나다\ & vbcrlf & \abc\ & vbcrl