تشخیص فیلدی که داده های آن از چندین space تشکیل شده

[mazoolagh]

تابع instr نقطه شروع یک رشته رو داخل یک رشته برمیگردونه در این تابع میخوایم بررسی کنیم که رشته یا فیلد یا تکست باکس white space (مشتکل فقط از اسپیس ) هست یا نه

if instr(str," ")>0 then

...

endif

یا اگه اصرار دارین یه تابع جداگانه داشته باشین (پست شماره 16):

Public Function detectSpace(strname As String) As Boolean

    detectSpace = (instr(strname," ")>0)

End Function

================
آپدیت:
منظور شما رو اشتباه گرفته بودم - ولی پست رو میذارم همینجور بمونه.
حتی اگر هم نخواین از روش پست 5 استفاده کنین (که قابلیت انعطاف بیشتری هم داره)
باز هم نیازی به لوپ نیست:

Public Function detectSpace(strname As String) As Boolean

    detectSpace=(strname<>"" AND strname=STRING(LEN(strname)," "))

End Function

[moustafa]

if instr(str," ")>0 then

...

endif

یا اگه اصرار دارین یه تابع جداگانه داشته باشین (پست شماره 16):

Public Function detectSpace(strname As String) As Boolean

    detectSpace = (instr(strname," ")>0)

End Function

================
آپدیت:
منظور شما رو اشتباه گرفته بودم - ولی پست رو میذارم همینجور بمونه.
حتی اگر هم نخواین از روش پست 5 استفاده کنین (که قابلیت انعطاف بیشتری هم داره)
باز هم نیازی به لوپ نیست:

Public Function detectSpace(strname As String) As Boolean

    detectSpace=(strname<>"" AND strname=STRING(LEN(strname)," "))

End Function

دستتون درد نکنه استاد پست پنج رو هم عرض کرده بودم برامون با if و بررسی تمام موارد در یک فیلد یا تکس بنویسین بعنوان یه فانکشن عمومی در برنامه هامون استفاده کنیم

[eb_1345]

دستتون درد نکنه استاد پست پنج رو هم عرض کرده بودم برامون با if و بررسی تمام موارد در یک فیلد یا تکس بنویسین بعنوان یه فانکشن عمومی در برنامه هامون استفاده کنیم

حالا ان شاءالله تا بعداً استاد در صورت تمایل خواستن یک فانکشن عمومی تهیه کنن عنایت داشته باش که برای استفاده از کتابخانه RegExp در قسمت رفرنس ها مطابق تصویر ضمیمه تیک آیتمی که با فلش مشخص کرده ام بزنی!

Dim rex As RegExp

Set rex = New RegExp

With rex

    .Pattern = "\S"

    .Global = True

    .MultiLine = True

    MsgBox .Test(" a b   c  ")

    MsgBox .Test("abc" + vbTab + "d")

    MsgBox .Test("abc" + vbCrLf + "d")

    MsgBox .Test(vbNull)

    MsgBox .Test("     ")

    MsgBox .Test("")

    MsgBox .Test(vbTab)

    MsgBox .Test(vbCr)

    MsgBox .Test(vbLf)

    MsgBox .Test(vbCrLf)

    MsgBox .Test(vbFormFeed)

    MsgBox .Test(vbVerticalTab)

End With

[mazoolagh]

حالا ان شاءالله تا بعداً مازو در صورت تمایل خواستن یک فانکشن عمومی تهیه کنن ...

سلام جناب بهرامی

راستش من هنوز نگرفتم تابع مورد نظر جناب مصطفی گرامی چی هست و قراره چه کار کنه؟
ممنون میشم روشنگری کنین.

[eb_1345]

با سلام
یه فیلدی از نوع رشته داریم که با چندین کاراکتر spaceپر شده بدیهی است که چون طول رشته داره empty و null نیست راه تشخیص اینطور فیلدها چیه ؟

سلام جناب بهرامی

راستش من هنوز نگرفتم تابع مورد نظر جناب مصطفی گرامی چی هست و قراره چه کار کنه؟
ممنون میشم روشنگری کنین.

با عرض سلام متقابل
ظاهراً ایشون در تابع مورد نظرشون میخوان تشخیص بدن که آیا محتویات یک ( رشته / تکست باکس/ فیلد جدول) که خالی نیست فقط و فقط از space تشکیل شده یا نه
و بنده هم با توجه به برداشتی که از خواسته و هدف ایشون در این تاپیک پیدا کردم در پست 29 متذکر شدم که توابع پست 16 و 24 خواسته ایشون رو تامین میکنه ، بخصوص تابع پست 24 جنابعالی