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

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

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

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

Пока что это больше похоже на "сделайте мне за меня"...
...
Рейтинг: 0 / 0
06.06.2018, 16:52
    #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
06.06.2018, 16:55
    #39656705
passstrada
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработка текстовой информации.
давно это писал
нашел в архивах
не знаю с чего начать в basic
как перевести
VB не изучал
...
Рейтинг: 0 / 0
06.06.2018, 16:57
    #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
06.06.2018, 17:04
    #39656722
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработка текстовой информации.
passstradaVB не изучалpassstradaЗадание:
Дан текст. Заменить......не изучал, но получил задание. Прямо Штирлиц
...
Рейтинг: 0 / 0
06.06.2018, 17:14
    #39656730
passstrada
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработка текстовой информации.
Shocker.Pro,

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

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


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