forum.clarionlife.net

Код: Выделить всё

checkstr    string('\/:*?"<>|')

Код: Выделить всё

                      if match(lfile,'[\/:*?"<>|]',Match:Regular)
                        loop ch1#=1 to len(checkstr)
                          loop ch2#=1 to len(clip(lfile))
                            if lfile[ch2#]=checkstr[ch1#]
                              lfile[ch2#]='_'
                            end
                          end
                        end
                      end

Код: Выделить всё

    XLSX:Normalize(STRING In_,BYTE valchar_=95),STRING

Код: Выделить всё

XLSX:Normalize PROCEDURE(STRING In_,BYTE valchar_)

  CODE

   l#=len(In_)
   loop i#=1 to l#
     if instring(In_[i#],'/\[]:*?')
       In_[i#]=chr(valchar_)
     end
   end
   if l#>31
     return In_[1:31]
   end
   return In_

Код: Выделить всё

XLSX:Normalize PROCEDURE(STRING In_,BYTE valchar_)

  CODE

   l#=len(In_)
   if l# > 31 Then
     l# = 31
   end
   loop i#=1 to l#
     if instring(In_[i#],'/\[]:*?')
       In_[i#]=chr(valchar_)
     end
   end
   return In_[1:l#]

Код: Выделить всё

XLSX:Normalize PROCEDURE(STRING In_,BYTE valchar_)


  CODE

   l#=len(In_)
   if l# > 31
     l# = 31
   end
   if instring(chr(valchar_),'/\[]:*?') 
     valchar_ = 95
   end
   loop i#=1 to l#
     if instring(In_[i#],'/\[]:*?')
       In_[i#]=chr(valchar_)
     end
   end
   return In_[1:l#]