All pastes #964877 Raw Edit

Untitled

public text v1 · immutable
#964877 ·published 2008-03-31 16:54 UTC
rendered paste body
dim objFSo, objFile

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFile = objFSO.OpenTextFile(getidentifier("$scriptdir")+"badword.txt",1)
  sText = objFile.ReadAll
  arr = split(sText,vbCrLf)
  for i=lbound(arr) to ubound(arr)
    OUTTEXT = Replace(OUTTEXT,Arr(i),"somethingtoreplacewith")
  next