Search and find then remove in variable

[Ruegen]

I would like to search a variable for a string and if it matches remove just that part of the string



something like

search strings in variable a

find ("house" & vbCrLf)

if match replace "house & vbCrLf" in variable with ""

no idea how..

[trevor40]

Try
Replace Function or Instr with code

[Ruegen]

I had tried that

ignore below

Dim strSchools As Variant


strSchools = TempVars!tmpIntSchoolList.Value
strSchools = Replace(strSchools, [SchoolName], "")


TempVars!tmpIntSchoolList = strSchools
Me.txtListSchools.Value = TempVars!tmpIntSchoolList


TempVars!tmpIntcheckGoogle = TempVars!tmpIntcheckGoogle - 1


TempVars!tmpIntcheckGoogle = TempVars!tmpIntcheckGoogle + 1
TempVars!tmpIntSchoolList = [SchoolName] & vbCrLf
Me.txtListSchools.Value = TempVars!tmpIntSchoolList
Me.Refresh

[Ruegen]

Basically I have

TempVars!tmpIntcheckGoogle = TempVars!tmpIntcheckGoogle + 1
TempVars!tmpIntSchoolList = [SchoolName] & vbCrLf + TempVars!tmpIntSchoolList
Me.txtListSchools.Value = TempVars!tmpIntSchoolList





Me.Refresh

however if the variable already has the found text inside it I want it to remove that said text (the user clicks twice)

[Ruegen]

This works however I need the counter to go down on the condition of the replace

TempVars!tmpIntSchoolList = Replace(TempVars!tmpIntSchoolList, [SchoolName], "")


TempVars!tmpIntcheckGoogle = TempVars!tmpIntcheckGoogle + 1
TempVars!tmpIntSchoolList = [SchoolName] & vbCrLf + TempVars!tmpIntSchoolList
Me.txtListSchools.Value = TempVars!tmpIntSchoolList




Me.Refresh

[Ruegen]

Dim testpos As Integer
testpos = InStr(1, TempVars!tmpIntSchoolList, [SchoolName] & vbCrLf, vbUseCompareOption)


If testpos = 1 Then
TempVars!tmpIntSchoolList = Replace(TempVars!tmpIntSchoolList, [SchoolName] & vbCrLf, "")
TempVars!tmpIntCheckGoogle = TempVars!tmpIntCheckGoogle - 1
Me.txtListSchools.Value = TempVars!tmpIntSchoolList
ElseIf testpos = 0 Then


End If












TempVars!tmpIntCheckGoogle = TempVars!tmpIntCheckGoogle + 1
TempVars!tmpIntSchoolList = [SchoolName] & vbCrLf + TempVars!tmpIntSchoolList
Me.txtListSchools.Value = TempVars!tmpIntSchoolList




Me.Refresh


End Sub

counter isn't accurate...

[trevor40]

Never needed to work with tempvas, your on your own...

[Ruegen]

ok works now

thanks trevor40

Private Sub Command7_Click()


Dim testpos As Integer
testpos = InStr(1, TempVars!tmpIntSchoolList, [SchoolName], vbUseCompareOption)
MsgBox testpos
If testpos <> 0 Then
TempVars!tmpIntSchoolList = Replace(TempVars!tmpIntSchoolList, [SchoolName] & vbCrLf, "")
TempVars!tmpIntSchoolList = Replace(TempVars!tmpIntSchoolList, [SchoolName], "")
Me.txtListSchools.Value = TempVars!tmpIntSchoolList
TempVars!tmpIntCheckGoogle = TempVars!tmpIntCheckGoogle - 1
Me.Refresh
ElseIf testpos = 0 Then
End If












TempVars!tmpIntCheckGoogle = TempVars!tmpIntCheckGoogle + 1
TempVars!tmpIntSchoolList = [SchoolName] & vbCrLf + TempVars!tmpIntSchoolList
Me.txtListSchools.Value = TempVars!tmpIntSchoolList




Me.Refresh


End Sub

[Ruegen]

Never needed to work with tempvas, your on your own...

thats ok - have it sorted now anyway

All it does is populate a message box with some choices of schools, then later another button will search the map for that group of schools selected but the message box just shows the user what choices they have made

[Ruegen]

If anyone wants a cleaner version

Dim testpos As Integer
testpos = InStr(1, TempVars!tmpIntSchoolList, [SchoolName], vbUseCompareOption)


If testpos <> 0 Then
TempVars!tmpIntSchoolList = Replace(TempVars!tmpIntSchoolList, [SchoolName] & vbCrLf, "")
TempVars!tmpIntSchoolList = Replace(TempVars!tmpIntSchoolList, [SchoolName], "")
Me.txtListSchools.Value = TempVars!tmpIntSchoolList
TempVars!tmpIntCheckGoogle = TempVars!tmpIntCheckGoogle - 1
ElseIf testpos = 0 Then
TempVars!tmpIntCheckGoogle = TempVars!tmpIntCheckGoogle + 1
TempVars!tmpIntSchoolList = [SchoolName] & vbCrLf + TempVars!tmpIntSchoolList
Me.txtListSchools.Value = TempVars!tmpIntSchoolList
End If

Me.Refresh