dim Datei as string
dim benutzer as string
dim neubenutzer as string
 
datei = text1.text
 
 If InStr(1, datei, "Benutzer") <> 0 Then
                        benutzer = mid(dateiname,x,... ) ' x ist die 
                        ' startnummer; ... ist die anzahl der zeichen ( könnte 
                        ' zum beispiel len(benutzername) sein  also die länge 
                        ' eines namens
                        neubenutzer = text2.text ' hier wird der neue 
                        ' benutzername aus der textbox entnommen
                        datei  = Replace(datei,benutzer,neubenutzer) ' hier 
                        ' wird der benutzer aus der textbox mit dem alten 
                        ' benutzer ersetzt
                    End If

 If InStr(1, zeile, ":") <> 0 Then
                        r = Right(zeile, 17)
                        f = Format(r, "m\/dd\/yyyy h:nn:ss AM/PM")
                        zeile = Replace(zeile, r, f)
                    End If

IHR SEID ALLE SO
mfG
dereric


P.S.: schreibt mir eine eMail