תחומים - פורום חרדי מקצועי

@moshe11 אמר בעזרה באקסס - הפעלת שאילתה ע"י קוד VB:

או לפחות כמה רשומות יש בתוצאה

אגב, תוכל לעשות שאילתת סיכום עם
SELECT Sum(table.coloumn) AS Sum from table
או ספירה
SELECT count(table.coloumn) AS Sum from table

@moshe11 לפני שאני או מישהו מסתכל
יש בתיבת התגובות כפתור בצורה הזו </>. תלחץ עליו ותעתיק את הקוד לבפנים.

@שואף סליחה על השאלה.
יש כאן כמה אופציות. זה לא מספק?

@אוריי זה מעדכן

    Dim X
    X = 1
  
    Dim objWord

    Dim objDoc

    Dim objSelection

    Set objWord = CreateObject("Word.Application")
   
    objWord.Visible = True
    Set objDoc = objWord.Documents.Open("C:\Users\a\Downloads\Version 8.docx")



    objDoc.Activate


    Dim sel As Object
    

    
   
    Dim FindWord As String
    Dim result As String
    
       Do While Range("g" & X).Value <> ""
   
    FindWord = Range("g" & X).Value
   
   Set oSelection = objWord.Selection
   oSelection.Select



With objDoc.ActiveWindow.Selection
    .Find.ClearFormatting
    .Find.Replacement.ClearFormatting
    With .Find
        .Text = FindWord
        .Replacement.Text = "$$$$$$$$$$$$$" 'Hope you have declared it somewhere?
        .Forward = True
        .Wrap = 1 'wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        oSelection.Find.Execute Replace:=2  'wdReplaceAll
   End With
End With
    
    
    
    '// Execute find method selects the found text if found
    objDoc.ActiveWindow.Selection.Find.Execute
    
    '// Store Selected text
    result = objDoc.ActiveWindow.Selection.Text
    
    '// Test if the selection string found match value required converted case for comparison
    If UCase(result) = UCase(FindWord) Then
        Range("m" & X).Value = "כן"
    Else
        Range("m" & X).Value = "לא"
    End If
    X = X + 1
    Loop
    '// Close and don't save application
    objWord.Quit SaveChanges:=0 ' wdDoNotSaveChanges (Word constant not defined in Excel)

 

@yossiz תודה רבה על החפירה עבורי בספריית הקוד מקור ועל ההסבר הבהיר!

@yossiz אמר
א. אתה לא יכול לייבא ספרייות/קומפוננטים/תוספים/פלאגינים על ידי התקנה מ-NPM ואז שימוש ב-import x from 'y'‎,
ב. אתה לא יכול לכתוב קומפוננט בקובץ עם סיומת vue.
חוץ מזה זה בדיוק אותו VUE.

בפרוייקט אחר אני משתמש בhttp-vue-loader. כאן זה לא היה מעשי כ"כ.

@yossiz אמר
תוך כדי שהוא מעביר לה שתי prop-סים: א) source שזה האייטם הנוחכי ברשימה, וזה prop מסוג Object

1. למעשה גם אם כתוב source: items זה עובד. זה בגלל שהitems כעת ג"כ סוג של אובייקט?
2. אם נכון ההנחה בשאלה הראשונה, אז למעשה ה:data-sources (בחלק של הhtml) שמפנה לitems, הוא עוקף את הvue ומפנה לאובייקט המקורי. לכן גם בדוגמא הזו אפי' אם הסרתי את המתודות בשורש הvue זה עדיין יעבוד.

אני רק רוצה לדעת שהבנתי נכון.

תודה רבה.

@yossiz אחרי התודה הרבה ועצומה,
תוכל להסביר לי מה הרעיון לכתוב Object במקום items? ויותר מכך, איך זה עובד?
תודה.

@www ענת ואמנון שעשוע

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

@אוריי אמר בקוד השוואה בין נתונים באקסל בווורד:

@chagold

יש לי קוד כזה שמחזיר בעמודה B האם הערך קיים בקובץ וורד לפי ערכים בעמודה A
זה הקוד
אני מאמין שתוכל לשפר אותו עוד

Sub FindName()

    Dim X
    X = 1
  
    Dim wrdApp As Object
    Dim wrdDoc As Object
    Set wrdApp = CreateObject("Word.Application")
        wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Open("C:\Users\sbhtk\Documents\ssss.docx")
    Dim FindWord As String
    Dim result As String
    
       Do While Range("A" & X).Value <> ""
   
    FindWord = Range("A" & X).Value
   ' MsgBox FindWord
    
    '// Defines selection for Word's find function
    wrdDoc.SelectAllEditableRanges
    
    '// Word Find Method Setup Block
    With wrdDoc.ActiveWindow.Selection.Find
        .Text = FindWord
        .Replacement.Text = ""
        .Forward = True
        .Wrap = 1 ' wdFindContinue (Word constant not defined in Excel)
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
'        .Style = ("choose your style to look for")
    End With
    
    '// Execute find method selects the found text if found
    wrdDoc.ActiveWindow.Selection.Find.Execute
    
    '// Store Selected text
    result = wrdDoc.ActiveWindow.Selection.Text
    
    '// Test if the selection string found match value required converted case for comparison
    If UCase(result) = UCase(FindWord) Then
        Range("B" & X).Value = "קיים"
    Else
        Range("B" & X).Value = "לא קיים"
    End If
    X = X + 1
    Loop
    '// Close and don't save application
    wrdApp.Quit SaveChanges:=0 ' wdDoNotSaveChanges (Word constant not defined in Excel)

End Sub

מקור

בהצלחה

@אוריי עובד מצויין, תודה.
יש אפשרות בקוד הזה ג"כ לעדכן את המילה בוורד (ולשמור)?

@www רק הערב התפניתי להיכנס לזה.
הצלחתי ככה.
@dovid תודה.

$pltxt='1@domain.com';

$method = 'AES-256-CBC';
$key = 'here very hard password and ultra long 1234';
$length = openssl_cipher_iv_length($method);
$iv = openssl_random_pseudo_bytes($length);
$encrypted = openssl_encrypt($pltxt, $method, $key, OPENSSL_RAW_DATA, $iv);
$ctxt = base64_encode($encrypted) . '|' . base64_encode($iv);


$array = explode('|', $ctxt);
$data = $array[0];
$iv = base64_decode($array[1]);

echo ($pltxt = openssl_decrypt($data, $method, $key, 0, $iv)) ;//1@domain.com

@yossiz אמר בשאלות לגבי כתיבת אפליקציית שרת יציבה (בנוד):

דוגמה, יש בקונטרולר פונקציה שנקרא findById שמביא שורה מה-DB לפי ה-ID.
אבל יש פעמים שאני רוצה לעשות JOIN ולהביא עוד אובייקטים קשורים ביחד איתו, האם להוסיף את כל המקרים האלו לפונצקיה כארגומנטים

הגיונית אם הוא מתיימר להיות גשר לDB אז הוא צריך לתת אפשרות לכל השאילתות. (בדומה למבנה היישויות XENFORO שנותנים תמיכה לזה).

כרגע שאין את זה, כתיבה של פונקציה נוספת זה יהיה עבודת תחזוקה של הקוד באם ישדרגו את הספריה הזו, בשונה מאם אתה מכניס כארגומנטים.

אם זה יעניין מה עשיתי בסוף.

בצד קליינט לפני השליחה:

let arr_code = func.code
       .replaceAll(String.fromCharCode(10),"~")
       .replaceAll(String.fromCharCode(13),"~");
            

• (ה'סולמית' עבור ההערות של PHP הוחלפה ל-// )

php:

        $code = str_replace("~",chr(13), $code);

@חוקר אם אין עריכת הטבלת datatable בכלל אז יש רק את נושא העיצוב (לא תוכל להקטין את העמודות כרצונך).

אם כוונת @dovid שגם כשמוסיפים משתמש לצד שרת זה משתקף בקליינט - אני לא זוכר (וזה לא אומר כלום). אבל אם צריך לקבל את המשתמש החדש ע"י בקשה שלך (או כשעורכים משתמש אז אתה צריך לקבל את המידע המעודכן), אז רלוונטי גם ההערה השניה שלי על שזה מסודר שם לפי עמודות.

@dovid אמר בריענון נתונים בממשק צפיה:

datatables לזכרוני תומך יופי בעיבוד וחיפוש ודפדוף של צד שרת

הוא עושה את העבודה אבל קשיים שנתקלתי:

• האדיטור של datatables ניגש לטבלת ערכים פשוטה, אבל בטבלה שיש לה עמודות id מקושרות לטבלאות אחרות ( ID עיר וכיו"ב), מאד קשה לעדכן (ואחרי העדכון הוא מחזיר לך את ה-ID לתצוגה אצלך ואתה שוב צריך לחפש את הערך המקושר (=שם העיר).
• כמו"כ הזנת הערכים שם הוא לפי מס' עמודה ולא לפי שם עמודה. ככה אם החלטת להוסיף עמודה אתה צריך לשנות חצי קוד.
• יש שם קשיים בהתאמות css.

לענ"ד אם יש לך פריימוורק לקוח זה עדיף.

@yossiz

תודה רבה.
אכן הבעיה כבר שם.

@chagold אני מנסה להעריך שזה כיון שכשהIF בPHP מקבל השוואה בין 2 ערכים שאחד מספרי אז הוא ממיר את הערך הסטרינגי למספר וממילא ההשוואה ל0 יוצאת נכונה.
אז זה לא נוגע לתוים מיוחדים, אלא לכל סטרינג וכנ"ל.
עשיתי כאן דוגמא.
מוזר.

בהתאם להפנייתו של @yossiz אני מנסה להתקין את זה בשרת ולא כ"כ הולך לי

לא עשיתי עם NPM כמו שכתוב שם כי השרת שלי הוא לא node.js
רק העליתי את זה לשרת ואני מנסה לגשת לקבצים לתפוס את הפרנציפ - אם זה עובד.
ולא כ"כ...

לדוגמא העליתי את הדף

וכמו שרואים הJS לא עולים.

תודה.

@מוטי-מן
נ.ב. יש תוסף בשם Autofill‬ שעושה את זה.

@שלומ אמר בחידה מתמטית לשמחת החג ולחדד את מוחות הילדים (והמבוגרים):

בנוסף האם התשובה תהיה שונה במידה והסוהר אינו יודע מהי הדלת הנכונה?

בהכרח, זה מה שטענתי בפוסטים דלעיל. כי הוא לא יכול לבחור את הדלת הלא נכונה אם הוא לא יודע מה היא.הסוהר חייב להוריד את הבחירה החוזרת של האסיר ל50:50 וזה לא יהיה אם הוא לא יודע.

@חינמי צודקים