søg & erstat

du skal da bare bruge Replace det kan man godt..

Lad os nu sige at du får hentet dine ord ind i dit array.

Hvad er det så du vil - vil du udskifte enkelte poster i dit array, eller?

Og er du sikker på at du overhovedet får hentet noget rigtigt ind i dit array - har du tjekket indholdet af dit array - jeg synes din kode ser lidt underlig ud - hvad bruger du f.eks. variablen i til?)

Det JEG ville være ville være at læse hele indholdet af din fil ind i een variabel, og så bruge replace på den. Men jeg er ikke helt sikker på hvad du vil???

Jeg har lavet et lille eksempel på, hvordan du kan erstatte bogstaver uden at anvende replace. I Eksemplet erstattes bogstavet E med e. Er det noget i den stil du søger?

Private Sub Command1_Click()
    GlTekst = "DEtte Er En tEst"
    NyTekst = GlTekst
    Find = "E"
    ErstatMed = "e"
   
    For i = 1 To Len(GlTekst)
        If Mid(GlTekst, i, 1) = Find Then
            NyTekst = Left(NyTekst, i - 1) & ErstatMed & Right(GlTekst, Len(GlTekst) - i)
        End If
    Next
    MsgBox NyTekst
End Sub

Jeg her måske ikke helt fåstået hvad der er du vel... :o)
Men den her giver dig kun ord og tal + klamer

'---------------------------------- Form1 ----------------------------------
Option Explicit

Private Sub Form_Load()
  'TrimWords = 26a4bbc(d)e3
  Me.Caption = TrimWords("26<|><|>a<|>4<|>b<|>b<|>c<|>(<|>d<|>|)<|>e<|>3<......")
End Sub

Public Function TrimWords(ByVal strText As String) As String
Dim i As Long
Dim strOut As String
Dim strOne As String
  For i = 1 To Len(strText)
    strOne = Mid$(strText, i, 1)
    Select Case strOne
          Case "A" To "Z", "a" To "z", "0" To "9", "(", ")"
            'ved ikke om du skal bruge disse 2 "(" ")"
            strOut = strOut & strOne
    End Select
  Next i
  TrimWords = strOut
End Function
'---------------------------------- Form1 ----------------------------------

lukker