2012年5月27日日曜日

MAXScript 文字列 コピー 置換

オブジェクト名に禁則文字が含まれていたので、エクスポート時に _で置換

文字列のコピーと置換のテスト


-- name に禁則文字 があったら rCh で置換する
fn ReplaceProhibitChar name rCh = (
  -- 禁則文字 仮
  prohibit = "\\/:,;*?\"<>|"

  -- 名前をコピーする
  newName = copy name
  
  -- 禁則文字を rCh に置換
  for j = 1 to prohibit.count do (
    for i = 1 to newName.count do (
      if prohibit[j] == newName[i] do (
        newName[i] = rCh
      )
    )
  )
  
  format "oldName %\n" name
  format "newName %\n" newName
  
  newName
)

str1 = ReplaceProhibitChar "aaa:0" "_"