Форум программистов, компьютерный форум, киберфорум
Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Basic нужно написать программу в Free Basic Написать программу распечатки результатов раздачи игральных карт из колоды (по шесть карт трем игрокам) с указанием номиналов мастей и карт (например: "валет червей"). Исходная информация вводится с... https://www.cyberforum.ru/ basic/ thread1768864.html Basic Под какой язык проще переписать программу
Есть программа на языке True basic, она описывает хаотическое поведение системы частиц молекулярной динамики. Программа отрисовывает движение частиц, изначально частицы занимают некоторые координаты...
Basic Обобщение чисел Фибоначчи Программа вычисляет числа, заданные рекуррентной формулой An = An-1 + An-2 + An-3 , где A1 = A2 = A3 = 1 REM REM f(n) = f(n - 1) + f(n - 2) + f(n - 3) REM f(1) = f(2) = f(3) = 1 REM... https://www.cyberforum.ru/ basic/ thread1763516.html Basic доброго времени суток. я переношу из бейсика в сцилаб задачу, что я делаю не так? https://www.cyberforum.ru/ basic/ thread1760525.html
Должен получиться график M=0.002; h=1500; d=0.005; Cx=0.2; qb=1.2; g=9.81; DT=0.001; pi=3.14; Sw=(pi*d^2)/4
Проверить код программы на ошибки Basic
Написал программу , но выводит ошибки. 5 KEY OFF 10 CLS 20 Q1=2:Q2=2 30 L=200:X2=0:S=5:R=5 40 SCREEN 2 50 CIRCLE (320-L/2.100),5 60 CIRCLE (320+L/2.100),5 70 A2=0:A3=350:AS=20 80 GOSUB 120
Basic Построить список из символов вводимого с клавиатуры текста https://www.cyberforum.ru/ basic/ thread1753789.html
Построить список из символов вводимого с клавиатуры текста. Вывести список на экран, располагая каждое слово с новой строки.
Basic Нейросеть в VisualBasic Нашёл на просторах интернета вот такой вот исходный код для visual basic. https://www.cyberforum.ru/vba/thread155817.html Хотел бы найти человека который поможет переделать его для немного другой... https://www.cyberforum.ru/ basic/ thread1753372.html Basic Написать шапку программы! вроде BASIC)
Есть основной код в ворде, нужно сделать так что бы прога в среде заработала) Заранее Спасибо!!!!
Basic Значение через combobox Имеется две таблицы в sql, Заказы и Склад. ID на складе связан с ID товара в заказах. Нужно, чтобы в combobox'e шел выбор ID на складе, а далее шло автоматическое заполнение textbox https://www.cyberforum.ru/ basic/ thread1744332.html Basic Тема: Массивы. Не удается задать формулу для вычисления четных чисел Элементы двухмерного массива А размеров 9*9 задаются с помощью следующего фрагмента программы: FOR n=1 TO 9 FOR m=1 TO 9 A(n,m)=n+m+1 Сколько элементов массива А будут принимать четные... https://www.cyberforum.ru/ basic/ thread1742966.html
перевести программу с паскаля в бейсик, пожалуйста) Basic
const n=10; var a:array of real; i,k,x:integer; write('x='); readln(x); begin for i:=1 to n do begin write('a= ');readln(a) end;
Basic В последовательности целых чисел определить количество нечётных чисел, кратных 3 Напишите программу, которая в последовательности целых чисел определяет количество нечётных чисел, кратных 3. Программа получает на вход целые числа, количество введённых чисел неизвестно,... https://www.cyberforum.ru/ basic/ thread1739918.html
2785 / 1296 / 167
Регистрация: 28.10.2011
Сообщений: 4,805
Записей в блоге: 6
03.08.2016, 08:41 0

Поменять расширение у всех файлов в каталоге - Basic - Ответ 9424727

03.08.2016, 08:41. Показов 1127. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено marina2 как решение

Решение

Цитата Сообщение от marina2 Посмотреть сообщение
но сначала необходимо прочитать имена файлов, а это мне не понятно.
Это зависит от диалекта бейсика. Например код может быть таким.
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  Directory$ = GetHomeDirectory() ; Lists all files and folder in the home directory
  If ExamineDirectory(0, Directory$, "*.*")  
    While NextDirectoryEntry(0)
 
      If DirectoryEntryType(0) = #PB_DirectoryEntry_File
        Type$ = "[File] "
        Size$ = " (Size: " + DirectoryEntrySize(0) + ")"
      Else
        Type$ = "[Directory] "
        Size$ = "" ; A directory doesn't have a size
      EndIf
      
      Debug Type$ + DirectoryEntryName(0) + Size$
    Wend
    FinishDirectory(0)
  EndIf


Вернуться к обсуждению:
Поменять расширение у всех файлов в каталоге Basic
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.08.2016, 08:41
Готовые ответы и решения:

Сменить расширение всех файлов в каталоге
Ребята, срочно выпала задача сменить расширение всех файлов в каталоге в которых 2 буква P а...

Суммарный объем файлов, хранящихся в каталоге и его подкаталогах и имеющих определенное расширение
Вот нужно сделать bat файл который бы выполнял нахождение суммарного объема файлов, хранящихся в...

Реализовать поиск в указанном каталоге всех файлов во всех поддиректориях и сформировать XML в нужном формате
Задача: Искать в указанном каталоге все файлы во всех поддиректориях и формировать XML в нужном...

Реализовать поиск в указанном каталоге всех файлов во всех поддиректориях и сформировать XML в нужном формате
Искать в указанном каталоге все файлы во всех поддиректориях и формировать XML в нужном формате. ...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.08.2016, 08:41

Вывести на экран абсолютные пути всех файлов, которые находятся в заданном каталоге и всех его подкаталогах
Не могу вернуть масив с директориями...( Если выводить на экран в цикле, то все нормально, но...

Вывести на консоль размеры и права доступа для всех файлов в заданном каталоге и всех его подкаталогах
Написать скрипт с использованием цикла for, выводящий на консоль размеры и права доступа для всех...

Получить и вывести на экран абсолютные пути всех файлов, которые находятся в заданном каталоге и всех его подк
Получить и вывести на экран абсолютные пути всех файлов, которые находятся в заданном каталоге и...

Найти суммарный объем всех графических файлов (bmp, jpg), находящихся в каталоге Windows и всех его подкаталогах
Здравствуйте, требуется помощь с задачами, которые нужно выполнить в PowerShell Найти суммарный...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.