ウィングのHPへようこそ 本文へジャンプ
サンプル一覧へ戻る

空白を削除する関数


空白を削除する関数
指定した文字列から全角の空白、半角の空白を削除して、戻す関数
<ソース例>


Function F_Space_Cut(P_Str As String) As String
  '空白を削除する関数
  'P_Strで受けた文字列の中の空白(全角、半角)を削除して戻す関数

  Dim nagasa As Integer
  Dim I As Integer
  Dim j As Integer
  Dim str As String
  nagasa = Len(P_Str)
  str = ""
  If nagasa <> 0 Then
    For I = 1 To nagasa
      If Mid(P_Str, I, 1) <> " " And Mid(P_Str, I, 1) <> " " Then

        str = str & Mid(P_Str, I, 1)
      End If
    Next
  End If
  F_Space_Cut = str
End Function

サンプル一覧へ戻る
 

Copyright(C) 2006 Wing