Omvendt vbCrlf

Private Sub Command1_Click()
Dim Str As String
Str = "Hej med dig hvor=" & vbLf _
& "dan går det med d=" & vbLf _
& "ig eksperten=" & vbLf _
& ".dk styr for v=" & vbLf _
& "ildt """
Str = Replace(Str, "=", "")
Str = Replace(Str, vbLf, "")
'eller Str = Replace(Str, vbCrLf, "")
Text2.Text = Str
End Sub

ikke det jeg søger, jeg søger en kommando som sletter en linie, hvis jeg bruger vblf så kommer der bare et mærkeligt tegn i min tekstboks istedet for at slette den linie

kabbak > der er faktis en funktion som hedder "Str(Number)" ikke fordi det ikke virker, men en dag får du måske problemer med noget hvor du har bruget Str som en variabel..

måske skulle man erstat (=LF) i samme hug.. så den ikke laver skade på dem hvor der ikke er "=" efter fuldt af en (LF)


Private Sub Form_Load()
Dim strText As String

  strText = "Hej med dig hvor=" & vbLf _
  & "dan går det med d=" & vbLf _
  & "ig eksperten=" & vbLf _
  & ".dk styr for v=" & vbLf _
  & "ildt." & vbLf _
  & "Start på ny linje.."


  strText = Replace(strText, vbCrLf, vbLf) ' erstat.. (CRLF) med (LF)  for at gøre den til 'unix tilstand'
  strText = Replace(strText, "=" & vbLf, "") ' erstat.. (=LF) med ingen ting. (Fjerner =LF)
  strText = Replace(strText, vbLf, vbCrLf) ' erstat.. (LF) med (CRLF) for at gøre den til 'windows tilstand'

  MsgBox strText
End Sub

prøv så at bruge den anden

Str = Replace(Str, vbCrLf, "")

shj > korrekt, det ved jeg, men brugte ikke lige tænkeren ;-))

VBCRLF betyder jo "enter" altså nyt linieskift, jeg skal have slettet en linie

Ja men du skal vel kun ha slettet de linjeskift hvor der er (= og et linjeskift) ??

er det ikke noget email tekst du skal læse da??

måske kan du bruge et ascii backspace tegn ( asc(9) )

ellers kan du bare lav en mid og angive længden som strengs længde minus længden af hvad du vil fjerne.

Du kan også bruge split()

altså bare at jeg kan få slettet en linieskift hvergang = opstår så er jeg tilfreds

så skulle den her virke : http://www.eksperten.dk/spm/695126#rid6149529

hvordan læser du din tekstfil ind ?

i unix bruger man LF som linjeskift og i windows bruger man CRLF som linjeskift.. og er det en email som kommer fra en unix computer så er linjeskift sikkert LF (er dog ikke sikker)

Hvis du bruger asc(9) så skriver den 57 istedet for =

JA hvis jeg skriver CRLF så kommer der et linie skift, men jeg skal have slettet = og slettet linieskiftet

strText = Replace(strText, "=" & vbCrLf, "")

SJH, ja selvfølgelig, det er mig der har sovet i timen..Smid lige et svar

Når.. :D

Jeg syntes også at kabbak skal ha point.. du kan jo give kabbak=50 og sjh=50 og så tage de 100 point selv.. så tror jeg alle kan være tilfres..

ok, så et svar da, men et godt arbejde sjh