Ett irriterande problem.
Jag laddar in en fil i en textbox som ser ut så här:
<code>
<%
MultiLang_1="Bli Medlem"
MultiLang_2="Att bli medlem är väldigt enkelt, nu när Du har hittat hit till våran hemsida."
MultiLang_3="Följ bara länken här nedanför"
%>
</code>
Det är alltså en ASP fil jag jobbar med.
För att inte glömma ASP-taggarna så sparar jag så här:
<code>
Dim svTexten As String
svTexten = "<%" & vbCrLf
svTexten = svTexten & frMultiLanguage.txtSv.Text
svTexten = svTexten & "%>"
</code>
DVS jag får alltid taggarna med mig.
Men när jag laddar in filen, så måste jag ta bort taggarna, annars så blir det ju fel.
<code>
Function StrippSprak(Text)
Text = Replace(Text, "%>", "")
Text = Replace(Text, "<%", "")
StrippSprak = Text
End Function
</code>
Så här långt är ju allt underbart, men felet är ju, när jag replaca taggarna så blir det en tomrad, både i början och i slutet av filen. Hur skall jag göra för att deleta den tomrad som jag replacar på?
Går det?

<code>
Function StrippSprak(Text)
Text = mid(Text, len("<%" & vbcrlf))
Text = mid(Text, 1, len(Text) - len(vbcrlf & "%>"))
StrippSprak = Text
End Function
</code>

Tack Onkelberg.
Det enda som kanske inte var så snyggt var att vbCrlf lämnar ett svart "märke" efter sig.
Var gång som jag sparar så kommer ett "märke till"
Någon lösning?

Function StrippSprak(Text)
Text = mid(Text, len("<%" & vbcrlf))
Text = mid(Text, 1, len(Text) - len(vbcrlf & "%>") - 1)
StrippSprak = Text
End Function

Fungerar det?

Tycärr Ongelberg, dessa tecken uppträder aldra först i strängen

Function StrippSprak(Text)
Text = mid(Text, len("<%" & vbcrlf) + 1)
Text = mid(Text, 1, len(Text) - len(vbcrlf & "%>") )
StrippSprak = Text
End Function

Tack, helt perfekt.