Аватар для udov
7 / 7 / 0
Регистрация: 10.01.2013
Сообщений: 59

Удалить все элементы символьного файла, расположенные после первого символа пробела

17.06.2013, 18:29. Показов 1884. Ответов 12
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан символьный файл, содержащий по крайней мере один символ пробела. Удалить все его элементы, расположенные после первого символа пробела, включая и этот пробел.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
17.06.2013, 18:29
Ответы с готовыми решениями:

Получить все символы, расположенные после первого двоеточия. Если среди них есть пробелы, удалить их
Даны натуральное число n и символы t1, t2, ..., tn, среди которых есть двоеточие. Получить все символы, расположенные после первого...

Удалить все элементы файла, расположенные после первого символа пробела
Дан символьный файл, содержащий по крайней мере один символ пробела. Удалить все его элементы, расположенные после первого символа пробела,...

Удалить все элементы файла, расположенные после первого символа пробела
дан символьный файл,содержащий по крайней мере один символ пробела. Удалить все его элементы, расположенные после первого символа...

12
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
37903 / 20969 / 4295
Регистрация: 12.02.2012
Сообщений: 34,497
Записей в блоге: 14
17.06.2013, 19:05
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Task(fname as string)
   fi%=FreeFile
   Open fname for Binary Access Read as #fi%
   ll&=Lof(fi%)
   Buf$=Space$(ll&)
   get #fi%,,Buf$
   Close #fi%
   Kill fname
   fo%=FreeFile
   Open fname for binary access write as #fo%
   k&=Instr(Buf$," ")
   Buf$=left$(Buf$,k&-1)
   Put #fo%,,Buf$
   Close #fo%
 End Sub
1
 Аватар для udov
7 / 7 / 0
Регистрация: 10.01.2013
Сообщений: 59
17.06.2013, 21:37  [ТС]
Catstail, а на форме добавляю TextBox и один Command, а оно не реагирует! что еще требуется добавить?
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
37903 / 20969 / 4295
Регистрация: 12.02.2012
Сообщений: 34,497
Записей в блоге: 14
17.06.2013, 21:42
Добавить мало... Надо написать обработчики событий.
0
 Аватар для morgann55
1365 / 207 / 37
Регистрация: 09.02.2012
Сообщений: 745
17.06.2013, 21:42
Цитата Сообщение от udov Посмотреть сообщение
Catstail, а на форме добавляю TextBox и один Command, а оно не реагирует! что еще требуется добавить?
А ты в Command пишешь
Visual Basic
1
Call Task
??
Синхрон
0
 Аватар для udov
7 / 7 / 0
Регистрация: 10.01.2013
Сообщений: 59
17.06.2013, 21:45  [ТС]
morgann55, нет, в модуле!

Добавлено через 34 секунды
Catstail, а, вон где загвоздка!
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
37903 / 20969 / 4295
Регистрация: 12.02.2012
Сообщений: 34,497
Записей в блоге: 14
17.06.2013, 21:49
А для этой задачи тебе, в сущности, не нужны органы управления. Вот минималистское решение:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Main()
   fname$ = InputBox("Задайте имя файла в текущей директории")
   If fname$ <> "" Then
      fi% = FreeFile
      Open fname For Binary Access Read As #fi%
      ll& = LOF(fi%)
      Buf$ = Space$(ll&)
      Get #fi%, , Buf$
      Close #fi%
      Kill fname
      fo% = FreeFile
      Open fname For Binary Access Write As #fo%
      k& = InStr(Buf$, " ")
      Buf$ = Left$(Buf$, k& - 1)
      Put #fo%, , Buf$
      Close #fo%
      MsgBox "OK!"
   End If
End Sub
Вложения
Тип файла: zip t079.zip (3.5 Кб, 10 просмотров)
1
 Аватар для udov
7 / 7 / 0
Регистрация: 10.01.2013
Сообщений: 59
17.06.2013, 21:57  [ТС]
Catstail, можете пожалуйста скинуть скрин что у вас в итоге выбивает,ато я либо недоганяю... у меня все как то просто!
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
37903 / 20969 / 4295
Регистрация: 12.02.2012
Сообщений: 34,497
Записей в блоге: 14
18.06.2013, 11:56
У меня выдается запрос "Задайте имя файла в текущей директории". Если я ввожу имя - выдается OK. Все.
0
Эксперт WindowsАвтор FAQ
 Аватар для Dragokas
18023 / 7726 / 892
Регистрация: 25.12.2011
Сообщений: 11,502
Записей в блоге: 16
23.06.2013, 21:53
Вариант через ADO Stream:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Explicit
 
Sub main()
    Dim fname As String, bArr() As Byte, pos As Long
    
    fname = InputBox("Задайте имя файла в текущей директории")
    'fname = "h:\_VBA\Файловая система, ф.операции, WMI\Работа с текстом\testfile.txt"
    
    With CreateObject("ADODB.Stream")
        .Type = 1 ' adTypeBinary
        .Open
        .LoadFromFile fname
        If .Size = 0 Then .Close: Exit Sub
        bArr() = .Read()
        For pos = 0 To UBound(bArr)
            If bArr(pos) = 32 Then Exit For
        Next
        Dim Stream2 As Object: Set Stream2 = CreateObject("ADODB.Stream")
        Stream2.Open
        Stream2.Type = 1
        .Position = 0
        .CopyTo Stream2, pos 'считая от нуля
        .Close
    End With
    Stream2.SaveToFile fname, 2 'adSaveCreateOverWrite
    Stream2.Flush
    Stream2.Close
    Set Stream2 = Nothing
End Sub
2
Модератор
10033 / 3880 / 882
Регистрация: 22.02.2013
Сообщений: 5,824
Записей в блоге: 78
24.06.2013, 00:06
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Private Sub Form_Load()
    Dim fNum As Integer, Txt As String
    fNum = FreeFile
    Open "D:\Temp\Text.txt" For Input As fNum
    Txt = Input(LOF(fNum), fNum)
    Txt = Left$(Txt, InStr(1, Txt, Chr$(32)) - 1)
    Close fNum
    Open "D:\Temp\Text.txt" For Output As fNum
    Print #fNum, Txt
    Close fNum
End Sub
0
 Аватар для udov
7 / 7 / 0
Регистрация: 10.01.2013
Сообщений: 59
24.06.2013, 12:26  [ТС]
@Dragokas, и какое имя файла задать?
0
Эксперт WindowsАвтор FAQ
 Аватар для Dragokas
18023 / 7726 / 892
Регистрация: 25.12.2011
Сообщений: 11,502
Записей в блоге: 16
24.06.2013, 16:17
Цитата Сообщение от udov Посмотреть сообщение
Дан символьный файл
Создайте любой текстовой, или бинарный файл.
В файле должен содержаться текст с пробелом, например: "Привет, udov "

Когда появится диалоговое окно - укажите путь к этому файлу.
Например на моем рабочем столе путь будет выглядеть так:
C:\Users\Alex\Desktop\Имя_файла.txt
где Alex - имя пользователя.
Миниатюры
Удалить все элементы символьного файла, расположенные после первого символа пробела   Удалить все элементы символьного файла, расположенные после первого символа пробела  
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
24.06.2013, 16:17
Помогаю со студенческими работами здесь

Удалить из файла все его элементы, расположенные после первого символа пробела, включая и этот пробел
Дан символьный файл, содержащий по крайней мере один символ пробела. Удалить все его элементы, расположенные после первого символа пробела,...

Работа с файлами. Дан символьный файл. Удалить все его элементы, расположенные после первого символа пробела
Дан символьный файл, содержащий по крайней мере один символ пробела. Удалить все его элементы, расположенные после первого символа пробела,...

Удалить все элементы файла, расположенные после последнего символа пробела, включая сам пробел
Дан символьный файл содержащий хотя бы один пробел.Удалить все его элементы расположенные после последнего символа пробела включая сам...

Удалить из текстового файла все его элементы, расположенные после последнего символа пробела, включая и этот пробел.
Дано текстовый файл, содержащий по крайней мере один символ пробела. Удалить все его элементы, расположенные после последнего символа...

Удалить все элементы массива, расположенные после последнего символа пробела
Дан символьный файл, содержащий по крайней мере один символ пробела. Удалить все его элементы, расположенные после последнего символа...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
13
Ответ Создать тему
Опции темы

Новые блоги и статьи
Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint
run.dev 26.04.2025
JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .
Паттерны в Python: Singleton, Factory и Observer
py-thonny 26.04.2025
Паттерны проектирования — это проверенные временем решения типовых проблем разработки программного обеспечения. Их история берёт начало с книги "Приёмы объектно-ориентированного проектирования. . . .
Исключения в C#: Stack Overflow, Access Violation и Out of memory
stackOverflow 26.04.2025
Исключения в C# — это не только механизм оповещения о проблемах, а целое искусство управления потоком выполнения программы в экстремальных ситуациях. Обычное исключение, например,. . .
Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana
stackOverflow 25.04.2025
Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .
Структура "железный OnKeyUp" вместо антидребезга. Полностью асинхронный счётчик.
Hrethgir 25.04.2025
Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .
Автоматизация Amazon Web Services (AWS) с Boto3 в Python
py-thonny 25.04.2025
Облачные вычисления стали неотъемлемой частью современной ИТ-инфраструктуры, а Amazon Web Services (AWS) занимает лидирующие позиции среди провайдеров облачных услуг. Управление многочисленными. . .
Apache Kafka vs RabbitMQ в микросервисной архитектуре
ArchitectMsa 25.04.2025
Современная разработка ПО всё чаще склоняется к микросервисной архитектуре — подходу, при котором приложение разбивается на множество небольших, автономных сервисов. В этой распределённой среде. . .
Параллельное программирование с OpenMP в C++
NullReferenced 24.04.2025
Параллельное программирование — подход к созданию программ, когда одна задача разбивается на несколько подзадач, которые могут выполняться одновременно. Оно стало необходимым навыком для. . .
Цепочки методов в C# с Fluent API
UnmanagedCoder 24.04.2025
Современное программирование — это не только решение функциональных задач, но и создание кода, который удобно поддерживать, расширять и читать. Цепочки методов и Fluent-синтаксис в C# стали мощным. . .
Мульти-тенантные БД с PostgreSQL Row Security
Codd 23.04.2025
Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru