Hej Udvikleren.dk brugere...
jeg kunne godt tænke mig at vide hvordan man fjerner/kopierer tegn fra en streng..
jeg har lært det en gang men har sidenhen ikke brugt det.... jeg har kun brugt ex. mid(sNoget,3,7)
Hvis der er nogen af jer andre guruer der ved det så må i da gerne lige fortælle mig det
pfh Tak
Vanilla
JT
'Denne rutine kan både fjerne eller tilføje tekst
'for test plaser 4 textboxe og en commandbutton på en form
' Text1 er den Tekst der skal ændres
' Tex2 er hvad der skal ændres
' Text3 er hvad teksten skal ændres til , hvis den er blank fjerner den selfølgelig tekst
' Text4 er den ændrede tekst
' nemmere kan det ikke gøres
Private Function TekstÆndring(TekstDerSkalÆndres As String, HvadSkalÆndres As String, TilHvadSkalDetÆndres As String) As String
TekstÆndring = Replace(TekstDerSkalÆndres, HvadSkalÆndres, TilHvadSkalDetÆndres, 1, -1, vbTextCompare)
End Function
Private Sub Command1_Click()
Text4.Text = TekstÆndring(Text1.Text, Text2.Text, Text3.Text)
End Sub
Private Sub Form_Load()
Command1.Caption = "Udfør"
End Sub