InDesign Bulk Number to Arabic Text Script

Question

Hello

I have numbers in a coulum and I want a script to write the numbers to Arabic TEXT

I asked claude ai to write a script but it doesn't work

Any help to edit the script and make it work?

demo document in the attachments!

Thanks in advanced!

// تحويل الأرقام إلى كلمات باللغة العربية
var ones = ['', 'واحد', 'اثنتان', 'ثلاث', 'أربع', 'خمس', 'ست', 'سبع', 'ثمان', 'تسع', 'عشر',
    'إحدى عشر', 'اثنات عشرة', 'ثلاث عشرة', 'أربع عشرة', 'خمس عشرة', 'ست عشرة', 'سبع عشرة', 'ثمان عشرة', 'تسع عشرة'];
var tens = ['', '', 'عشرون', 'ثلاثون', 'أربعون', 'خمسون', 'ستون', 'سبعون', 'ثمانون', 'تسعون'];
var hundreds = ['', 'مائة', 'مئتان', 'ثلاثمائة', 'أربعمائة', 'خمسمائة', 'ستمائة', 'سبعمائة', 'ثمانمائة', 'تسعمائة'];

function numberToWords(num) {
    if (num === 0) return 'صفر';
    if (num === 1000) return 'ألف';
    
    var words = '';
    
    // معالجة المئات
    if (num >= 100) {
        var hundredsDigit = Math.floor(num / 100);
        words = hundreds[hundredsDigit];
        num = num % 100;
        
        if (num > 0) {
            words += ' و';
        }
    }
    
    // معالجة العشرات والآحاد
    if (num > 0) {
        // للأرقام من 1-19
        if (num < 20) {
            words += ones[num];
        }
        // للأرقام من 20-99
        else {
            var remainder = num % 10;
            var tensIndex = Math.floor(num / 10);
            
            if (remainder === 0) {
                words += tens[tensIndex];
            } else {
                words += ones[remainder] + ' و' + tens[tensIndex];
            }
        }
    }
    
    return words;
}

// الكود الرئيسي للتنفيذ في InDesign
try {
    if (app.documents.length > 0) {
        var doc = app.activeDocument;
        var selection = doc.selection;
        
        // التأكد من تحديد خلايا في الجدول
        if (selection.length > 0 && selection[0] instanceof Cell) {
            var firstCell = selection[0];
            var table = firstCell.parent;
            var selectedColumn = firstCell.columnIndex;
            var targetColumn = selectedColumn + 1;
            
            // التحقق من أن العمود المستهدف موجود في الجدول
            if (targetColumn < table.columns.length) {
                // معالجة كل صف في العمود المحدد
                for (var i = 0; i < selection.length; i++) {
                    var currentCell = selection[i];
                    var cellContent = currentCell.contents;
                    var number = parseInt(cellContent);
                    
                    // التحقق من أن المحتوى رقم صحيح
                    if (!isNaN(number) && number >= 0 && number <= 1000) {
                        // الحصول على الخلية المجاورة في نفس الصف
                        var targetCell = table.cells[currentCell.rowIndex][targetColumn];
                        // تحويل الرقم إلى كلمات وكتابته في الخلية المجاورة
                        targetCell.contents = numberToWords(number);
                    }
                }
                alert("تم تحويل الأرقام بنجاح!");
            } else {
                alert("لا يوجد عمود مجاور للكتابة فيه");
            }
        } else {
            alert("الرجاء تحديد الخلايا التي تحتوي على الأرقام في الجدول");
        }
    }
} catch (e) {
    alert("حدث خطأ: " + e);
}

m1b · Accepted Answer

Hi @alma_3660, AI is amazing, but often gets code wrong, as in this case. I've made many changes to get it working, including adding a function I created for your other question.

Please try the following code. It puts the words into the table cell to the left of the selected cell. You can select multiple rows.

- Mark

/**
 * Convert numbers to words (Arabic version).
 * Puts converted number in the cell to the left of the selected cell.
 * @author Claude AI and m1b
 * @discussion https://community.adobe.com/t5/indesign-discussions/indesign-bulk-number-to-arabic-text-script/m-p/14992156
 */
function main() {

    // الكود الرئيسي للتنفيذ في InDesign
    if (0 === app.documents.length)
        return alert("الرجاء تحديد الخلايا التي تحتوي على الأرقام في الجدول");

    var doc = app.activeDocument;
    var selection = doc.selection;

    // التأكد من تحديد خلايا في الجدول
    if (
        selection.length === 0
        || !selection[0].hasOwnProperty('parentColumn')
    )
        return alert("الرجاء تحديد الخلايا التي تحتوي على الأرقام في الجدول");

    var rows = getCellsInRows(selection[0]);
    var targetColumnIndex = rows[0][0].parentColumn.index + 1;
    var table = rows[0][0].parent;

    while ('Table' !== table.constructor.name)
        table = table.parent;

    // التحقق من أن العمود المستهدف موجود في الجدول
    if (targetColumnIndex >= table.columns.length)
        // nowhere to put result
        return alert("لا يوجد عمود مجاور للكتابة فيه");

    // معالجة كل صف في العمود المحدد
    for (var r = 0, row, cell, num, targetCell; r < rows.length; r++) {

        row = rows[r];
        cell = row[0];
        num = parseInt(cell.contents);

        // التحقق من أن المحتوى رقم صحيح
        if (
            !isNaN(num)
            && num >= 0
            && num <= 1000
        ) {
            // الحصول على الخلية المجاورة في نفس الصف
            targetCell = table.rows[cell.parentRow.index].cells[targetColumnIndex];
            // تحويل الرقم إلى كلمات وكتابته في الخلية المجاورة
            targetCell.contents = numberToWords(num);
        }

    }

    // alert("تم تحويل الأرقام بنجاح!");

};
app.doScript(main, ScriptLanguage.JAVASCRIPT, undefined, UndoModes.ENTIRE_SCRIPT, 'Test Numbers To Words');

/**
 * Returns the number `num` converted into words.
 * @author Claude AI
 * @version 2024-11-21
 * @param {number} num - the number to convert.
 * @returns {String}
 */
function numberToWords(num) {

    // تحويل الأرقام إلى كلمات باللغة العربية
    const ones = ['', 'واحد', 'اثنتان', 'ثلاث', 'أربع', 'خمس', 'ست', 'سبع', 'ثمان', 'تسع', 'عشر', 'إحدى عشر', 'اثنات عشرة', 'ثلاث عشرة', 'أربع عشرة', 'خمس عشرة', 'ست عشرة', 'سبع عشرة', 'ثمان عشرة', 'تسع عشرة'],
        tens = ['', '', 'عشرون', 'ثلاثون', 'أربعون', 'خمسون', 'ستون', 'سبعون', 'ثمانون', 'تسعون'],
        hundreds = ['', 'مائة', 'مئتان', 'ثلاثمائة', 'أربعمائة', 'خمسمائة', 'ستمائة', 'سبعمائة', 'ثمانمائة', 'تسعمائة'];

    if (num === 0) return 'صفر';
    if (num === 1000) return 'ألف';

    var words = '';

    // معالجة المئات
    if (num >= 100) {
        var hundredsDigit = Math.floor(num / 100);
        words = hundreds[hundredsDigit];
        num = num % 100;

        if (num > 0) {
            words += ' و';
        }
    }

    // معالجة العشرات والآحاد
    if (num > 0) {
        // للأرقام من 1-19
        if (num < 20) {
            words += ones[num];
        }
        // للأرقام من 20-99
        else {
            var remainder = num % 10;
            var tensIndex = Math.floor(num / 10);

            if (remainder === 0) {
                words += tens[tensIndex];
            } else {
                words += ones[remainder] + ' و' + tens[tensIndex];
            }
        }
    }

    return words;

};

/**
 * Returns array of arrays of cells by row.
 * Useful when given a selection of cells
 * to divide into rows.
 * @author m1b
 * @version 2024-11-19
 * @param {Cell} cells - the cells to separate.
 * @returns {Array<Array<Cell>>?}
 */
function getCellsInRows(cells) {

    if (
        undefined == cells
        || 'Cell' !== cells.constructor.name
        || !cells.hasOwnProperty('cells')
        || 0 === cells.cells.length
    )
        return

    var cellsInRows = [],
        lookup = {};

    for (var i = 0; i < cells.cells.length; i++) {

        var rowIndex = cells.cells[i].parentRow.index;

        if (undefined == lookup[rowIndex])
            lookup[rowIndex] = cellsInRows.length;

        if (undefined == cellsInRows[lookup[rowIndex]])
            cellsInRows[lookup[rowIndex]] = [];

        cellsInRows[lookup[rowIndex]].push(cells.cells[i]);

    }

    return cellsInRows;

};

Edit: minor changes to clean up a bit.

Sign up

To post, reply, or follow discussions, please sign in with your Adobe ID.

Sign in to Adobe Community

To post, reply, or follow discussions, please sign in with your Adobe ID.

Scanning file for viruses.

This file cannot be downloaded