powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обработка текстовой информации.
9 сообщений из 9, страница 1 из 1
Обработка текстовой информации.
    #39656581
passstrada
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Задание:
Дан текст. Заменить в тексте ЗАДАННОЕ(1) слово на ЗАДАННОЕ(2) слово.

В ниже приведенных заданиях необходимо:
1. читать исходный текст, символьные строки и т.п. из внешнего символьного файла.
2. результат выполнения программы выводить в новый символьный файл и/или на консоль.

Примечание
- Вы можете воспользоваться, например, "Библиотекой Машкова" для получения исходного символьного файла.
- Вы можете воспользоваться любым текстовым редактором для получения исходного символьного файла.

Помогите пожалуйста...
...
Рейтинг: 0 / 0
Обработка текстовой информации.
    #39656602
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Помогите, да? а в чём? где то, что ВАМИ сделано? где указание. какой именно момент не получается?

Пока что это больше похоже на "сделайте мне за меня"...
...
Рейтинг: 0 / 0
Обработка текстовой информации.
    #39656698
passstrada
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Akina,

вот на С

Код: plaintext
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.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
#include <iostream>
#include <cstring>
 
char* str_replace(char* str, size_t size, const char* old, const char* ns){
    size_t len, num;
    char*  tmp  = str;
    size_t len1 = strlen(old);
    size_t len2 = strlen(ns);
 
    if(len2 > len1){
        len = strlen(str);
        num = len2 - len1;
    }
 
    while((str = strstr(str, old)) != NULL){
        if(len1 > len2){
            strncpy(str, ns, len2);
            strcpy(str + len2, str + len1);
        } else if(len1 < len2){
 
            if((len + num + 1) >= size)
                break;
 
            memmove(str + num, str, (len - (size_t)(str - tmp)) * sizeof(char));
            strncpy(str, ns, len2);
            len += num;
        } else
            strncpy(str, ns, len2);
        str += len2;
    }
    return tmp;
}
 
int main(void){
    char str[256] = "дуб, (дуб), липа, дуб, {дуб}... дуб";
    char old[]    = "дуб";
    char ns[]     = "берёза";
 
    std::cout << str << std::endl;
    std::cout << str_replace(str, sizeof(str)-1, old, ns) << std::endl;
    return 0;
}
...
Рейтинг: 0 / 0
Обработка текстовой информации.
    #39656705
passstrada
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
давно это писал
нашел в архивах
не знаю с чего начать в basic
как перевести
VB не изучал
...
Рейтинг: 0 / 0
Обработка текстовой информации.
    #39656709
passstrada
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
если по меньше воды
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
#include <algorithm>
#include <iostream>
#include <iterator>
#include <sstream>
#include <string>
 
int main()
{
    const std::string str = "mother father sosage mother you", from = "mother", to = "grandmother";
    std::istringstream ist(str);
    std::replace_copy(std::istream_iterator<std::string>(ist), std::istream_iterator<std::string>(),
        std::ostream_iterator<std::string>(std::cout, " "), from, to);
}
...
Рейтинг: 0 / 0
Обработка текстовой информации.
    #39656722
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
passstradaVB не изучалpassstradaЗадание:
Дан текст. Заменить......не изучал, но получил задание. Прямо Штирлиц
...
Рейтинг: 0 / 0
Обработка текстовой информации.
    #39656730
passstrada
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro,

смотря на задание у меня такой же мрачный взгляд как у Тихонова
...
Рейтинг: 0 / 0
Обработка текстовой информации.
    #39656785
babken
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
TS не сказал на каком языке из семейства VB ему нужно сделать это.
Начните с изучения fso и функции replace например.
...
Рейтинг: 0 / 0
Обработка текстовой информации.
    #39657405
passstrada
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
у меня получилось чтото такое
Замена в тексте слова "Петр" на слово "Иван"

Код: vbnet
1.
Text1.Text = Replace(Text1.Text, "Петр", "Иван")
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обработка текстовой информации.
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]