אופיס 365 הגבלת תא מלקבל ערכים המכילים תווים כלליים/*"() וכו' באקסס ובVB

[FullTime]

איך עושים זאת באקסס.
כמו"כ בתיבת inputbox בVB.

 

[moishy]

האם ברצונך גם למנוע אותיות?

 

[FullTime]

האם ברצונך גם למנוע אותיות?

לא, אני רוצה למנוע רק תווים
(אני רוצה שמה שאני רושם בתיבה יהיה שם של קובץ, כך שצריך למנוע אותו רק מתווים כלליים).

 

[moishy]

שים לב יש שני חלקים, 1. שם הקובץ 2. שם הנתיב.
לוכסן הוא חוקי בנתיב אבל לא בשם קובץ.

האם אתה מדבר על נתיב או על שם הקובץ?

 

[FullTime]

שים לב יש שני חלקים, 1. שם הקובץ 2. שם הנתיב.
לוכסן הוא חוקי בנתיב אבל לא בשם קובץ.

האם אתה מדבר על נתיב או על שם הקובץ?

שם קובץ בלבד.
לוכסנים מוגדרים בקוד בנפרד .

 

[moishy]

למעשה לא ניתן למנוע הזנת תוים מיוחדים בInputBox אבל ניתן לערוך את המחרוזת שהוא מחזיר. להלן שלש פונקציות שתוכל להשתמש בהם.

Option Explicit

Function fRemoveSpecialCharsReplace(strInput As String) As String
    Dim strInvalidChars As String
    Dim i As Long
    strInvalidChars = "\/:*?""<>|"
    For i = 1 To Len(strInvalidChars)
        strInput = Replace$(strInput, Mid$(strInvalidChars, i, 1), "")
    Next
    fRemoveSpecialCharsReplace = strInput
End Function

Function fRemoveSpecialCharsLoop1(strInput As String) As String
    Dim ModString As String
    Dim strInvalidChars As String
    Dim Char As String
    Dim i As Integer
    strInvalidChars = "\/:*?""<>|"
    ModString = vbNullString
    For i = 1 To Len(strInput)
        Char = Mid(strInput, i, 1)
        If InStr(1, strInvalidChars, Char) = 0 Then
            ModString = ModString & Char
        End If
    Next i
    fRemoveSpecialCharsLoop1 = ModString
End Function

Function fRemoveSpecialCharsLoop2(strInput As String) As String
    Dim i As Integer
    Dim strInvalidChars As String
    strInvalidChars = "\/:*?""<>|)"
    For i = 1 To Len(strInput)
        If InStr(1, strInvalidChars, Mid(strInput, i, 1), vbTextCompare) Then
            fRemoveSpecialCharsLoop2 = fRemoveSpecialCharsLoop2
        Else
            fRemoveSpecialCharsLoop2 = fRemoveSpecialCharsLoop2 & Mid(strInput, i, 1)
        End If
    Next
End Function

והשימוש לדוגמא:

strFileName = InputBox("הזן את שמו של הקובץ, "שם קובץ")
strFileName = fRemoveSpecialCharsLoop1(strFileName)

 

[FullTime]

לא חשבתי שזה כזה מסובך...
יפה מאוד עובד מצויין. תודה ענקית מוישי.

 

[אליהו פריד]

בכל שפת תכנות מונחה עצמים, יש לפקד מסוג EDITBOX אירוע בשם
ONKEYPRESS או משהו דומה

 

[moishy]

אכן בתיבת טקסט ניתן להשתמש באירוע KeyDown אך דא אקא בInputBox אין חיה כזאת.