Записи Друзья Комментарии
rss forum sources ru
Аватар rss_forum_sources_ru

 -Поиск по дневнику

Поиск сообщений в rss_forum_sources_ru

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 29.07.2007
Записей:
Комментариев:
Написано: 80

Форум на Исходниках.RU





Форум на Исходниках.RU


Добавить любой RSS - источник (включая журнал LiveJournal) в свою ленту друзей вы можете на странице синдикации.

Исходная информация - http://forum.sources.ru.
Данный дневник сформирован из открытого RSS-источника по адресу http://forum.sources.ru/yandex.php, и дополняется в соответствии с дополнением данного источника. Он может не соответствовать содержимому оригинальной страницы. Трансляция создана автоматически по запросу читателей этой RSS ленты.
По всем вопросам о работе данного сервиса обращаться со страницы контактной информации.
[Обновить трансляцию]

Нравится

Как убрать лишние символы в конце строки взятой из ячейки таблицы word
Пятница, 16 Октября 2020 г. 19:23 + в цитатник
Fellinggood:
Цитата Akina @
Цитата Fellinggood @
вот как получилось

Не, вот нафига нужны эти циклы с флагом proverka, если всё то же самое делает одно несложное выражение?

да можно было по другому, просто уже не хотел запариваться так как уже почти все дописал в варианте предложенном выше

https://forum.sources.ru/index.php?showtopic=420047&view=findpost&p=3840468


Метки:  
Нравится

Как убрать лишние символы в конце строки взятой из ячейки таблицы word
Пятница, 16 Октября 2020 г. 19:08 + в цитатник
Akina:
Цитата Fellinggood @
вот как получилось

Не, вот нафига нужны эти циклы с флагом proverka, если всё то же самое делает одно несложное выражение?

https://forum.sources.ru/index.php?showtopic=420047&view=findpost&p=3840465


Метки:  
Нравится

Как убрать лишние символы в конце строки взятой из ячейки таблицы word
Пятница, 16 Октября 2020 г. 18:37 + в цитатник
Fellinggood:
Цитата Akina @
Окончание ячейки - CHR(7).
Значение ячейки, как я вижу - одна строка. Так что
    shortstring = Split(Replace(Selection.text, CHR(7), ""), CHR(13))(0)

Уберётся и символ завершения ячейки, и, при наличии, хвостовые переводы строк.

Спасибо

Добавлено
Спасибо всем, вот как получилось
    Sub Макрос3()
    '
    ' Макрос3 Макрос
    ' Макрос записан 15.10.2020 User
    Dim longstring, shortstring, longs, shorts As String
    Dim iCell As Range
    Dim i As Integer
    Dim j As Integer
    Dim N As Integer
    Dim Num As Integer
    Dim ascii As Long
    Const CHAR_TO_DELETE As Long = 7 '7 означает ascii код символа "конца строки - квадратик" найденный через функцию ascii = Asc(Right(shortstring, 1))
    Dim proverka As Integer
    N = 58
    For i = 12 To N
    proverka = 1 'Условие проверки, что в конце строки нет символа "конец строки"
    ActiveDocument.Tables(1).Cell(i, 1).Select
    shortstring = Selection.text
    ascii = Asc(Right(shortstring, 1)) 'Функция Asc Определяет ascii код символа
    ' В нашем случае это код символа "конец строки - квадратик" = 7 если смотреть через отладчик на строку таблицы
    'функция Right(shortstring, 1) определяет последний символ справа строки shortstring и возвращает его в строковой переменной
    Do While proverka = 1
    If Len(shortstring) > 0 Then 'Если длина строки больше 0
    proverka = 0
    ascii = Asc(Right(shortstring, 1))
    If Asc(Right(shortstring, 1)) = CHAR_TO_DELETE Or Asc(Right(shortstring, 1)) = 13 Then 'Right(shortstring, 1) берет последний символ строки
    shortstring = Left(shortstring, Len(shortstring) - 1) 'Возвращает строку начиная с левого символа длиной
    'символов Len(shortstring) - 1
    proverka = 1
    End If
    End If
    Loop
    proverka = 1
    ActiveDocument.Tables(1).Cell(i, 2).Select
    longstring = Selection.text
    Do While proverka = 1
    If Len(longstring) > 0 Then 'Если длина строки больше 0
    proverka = 0
    If Asc(Right(longstring, 1)) = CHAR_TO_DELETE Or Asc(Right(longstring, 1)) = 13 Then 'Right(shortstring, 1) берет последний символ строки
    longstring = Left(longstring, Len(longstring) - 1) 'Возвращает строку начиная с левого символа длиной
    'символов Len(shortstring) - 1
    proverka = 1
    End If
    End If
    Loop
    AutoCorrect.Entries.Add Name:=shortstring, Value:=longstring
    With AutoCorrect
    .CorrectInitialCaps = False
    .CorrectSentenceCaps = False
    .CorrectDays = False
    .CorrectCapsLock = False
    .ReplaceText = True
    .ReplaceTextFromSpellingChecker = False
    .CorrectKeyboardSetting = False
    .DisplayAutoCorrectOptions = True
    .CorrectTableCells = False
    End With
    Next i
    'shortstring = Split(Replace(Selection.text, Chr(7), ""), Chr(13))(0) - замена символа конца строки на пустой символ (стирание
    'то есть стираем лишние символы конца строки
    End Sub

https://forum.sources.ru/index.php?showtopic=420047&view=findpost&p=3840463


Метки:  
Нравится

Как убрать лишние символы в конце строки взятой из ячейки таблицы word
Пятница, 16 Октября 2020 г. 18:32 + в цитатник
Akina: Окончание ячейки - CHR(7).
Значение ячейки, как я вижу - одна строка. Так что
    shortstring = Split(Replace(Selection.text, CHR(7), ""), CHR(13))(0)

Уберётся и символ завершения ячейки, и, при наличии, хвостовые переводы строк.

https://forum.sources.ru/index.php?showtopic=420047&view=findpost&p=3840462


Метки:  
Нравится

Сортировка по имеющимся данным
Пятница, 16 Октября 2020 г. 18:22 + в цитатник
Akina:
Цитата JoeUser @
Что в БД по-умолчанию: ASC или DESC?

По умолчанию ASC.

https://forum.sources.ru/index.php?showtopic=420043&view=findpost&p=3840460


Метки:  
Нравится

Сортировка по имеющимся данным
Пятница, 16 Октября 2020 г. 17:47 + в цитатник
JoeUser: Блин, забыл! :-? Что в БД по-умолчанию: ASC или DESC? :blink:

https://forum.sources.ru/index.php?showtopic=420043&view=findpost&p=3840456


Метки:  
Нравится

який завод виробляє в україні контейнер для сміття
Пятница, 16 Октября 2020 г. 17:39 + в цитатник
Stuarttog: дмитро беспалов https://urbanist.media/ купити плитку на пол у винница
55.gif (, : 4)

https://forum.sources.ru/index.php?showtopic=420048&view=findpost&p=3840454


Метки:  
Нравится

Как убрать лишние символы в конце строки взятой из ячейки таблицы word
Пятница, 16 Октября 2020 г. 17:12 + в цитатник
MIF: Значение, найденное в первом сниппете.

https://forum.sources.ru/index.php?showtopic=420047&view=findpost&p=3840452


Метки:  
Нравится

Как убрать лишние символы в конце строки взятой из ячейки таблицы word
Пятница, 16 Октября 2020 г. 16:56 + в цитатник
Fellinggood:
Цитата MIF @
Тогда проанализировать что в конце строки
    Dim ascii As Long
    ascii = Asc(Right(shortstring, 1))


и удалять только когда они есть
    Const CHAR_TO_DELETE As Long = Your_Value
    If Len(shortstring) > 0 Then
    If Asc(Right(shortstring, 1)) = CHAR_TO_DELETE Then
    shortstring = Left(shortstring, Len(shortstring) - 1)
    End If
    End If

спасибо буду пробовать

Добавлено
Цитата Fellinggood @
Цитата MIF @

и удалять только когда они есть
    Const CHAR_TO_DELETE As Long = Your_Value

А что значит это объявление

https://forum.sources.ru/index.php?showtopic=420047&view=findpost&p=3840451


Метки:  
Нравится

Как убрать лишние символы в конце строки взятой из ячейки таблицы word
Пятница, 16 Октября 2020 г. 16:53 + в цитатник
MIF: Тогда проанализировать что в конце строки
    Dim ascii As Long
    ascii = Asc(Right(shortstring, 1))


и удалять только когда они есть
    Const CHAR_TO_DELETE As Long = Your_Value
    If Len(shortstring) > 0 Then
    If Asc(Right(shortstring, 1)) = CHAR_TO_DELETE Then
    shortstring = Left(shortstring, Len(shortstring) - 1)
    End If
    End If

https://forum.sources.ru/index.php?showtopic=420047&view=findpost&p=3840450


Метки:  
Нравится

Как убрать лишние символы в конце строки взятой из ячейки таблицы word
Пятница, 16 Октября 2020 г. 16:47 + в цитатник
Fellinggood:
Цитата MIF @
Йто символы конца яйейки.
Можно тупо удалить 2 символа:
    shortstring = Left(shortstring, Len(shortstring) - 2)

да просто не в каждой строке есть эти символы, там где 2 строки в ячейке таблицы, почему то их нет

https://forum.sources.ru/index.php?showtopic=420047&view=findpost&p=3840449


Метки:  
Нравится

Как убрать лишние символы в конце строки взятой из ячейки таблицы word
Пятница, 16 Октября 2020 г. 16:42 + в цитатник
MIF: Йто символы конца яйейки.
Можно тупо удалить 2 символа:
    shortstring = Left(shortstring, Len(shortstring) - 2)

https://forum.sources.ru/index.php?showtopic=420047&view=findpost&p=3840448


Метки:  
Нравится

Как убрать лишние символы в конце строки взятой из ячейки таблицы word
Пятница, 16 Октября 2020 г. 16:06 + в цитатник
Fellinggood: Здраствуйте. Хотел создать программу автоматического добавления автозамен из таблицы. ________________.JPG (, : 9)
Но столкнулся с проблемой при взятии текстового значения из ячейки таблицы и последующем добавлении возникает ошибка (см. скриншот).
________________.JPG (, : 9)
из за того что в конце есть лишние пробелы. При отладке программы в конце строки отображаются какие то квадраты (см. скрин).
________________.JPG (, : 9)
Я использовал функцию удаления пробелов в конце строки Trim(), но оне не убирает данные символы. Не подскажете что делать?

    Sub Макрос3()
    Dim longstring, shortstring, longs, shorts As String
    Dim iCell As Range
    Dim i As Integer
    Dim j As Integer
    Dim N As Integer
    Dim Num As Integer
    N = 58
    For i = 12 To N
    ActiveDocument.Tables(1).Cell(i, 1).Select
    shortstring = Selection.text
    shorts = RTrim(shortstring)
    ActiveDocument.Tables(1).Cell(i, 2).Select
    longstring = Selection.text
    AutoCorrect.Entries.Add Name:=shortstring, Value:=longstring
    Next i
    End Sub

https://forum.sources.ru/index.php?showtopic=420047&view=findpost&p=3840445


Метки:  
Нравится

Сортировка по имеющимся данным
Пятница, 16 Октября 2020 г. 12:12 + в цитатник
Akina:
    ORDER BY price IS NULL, price

https://forum.sources.ru/index.php?showtopic=420043&view=findpost&p=3840444


Метки:  
Нравится

DeviceIoControl + IOCTL_DISK_SET_CACHE_INFORMATION Ошибка 24
Пятница, 16 Октября 2020 г. 11:45 + в цитатник
navodri: Пытаюсь изменить кэш диска, но получаю ошибку 24.

    type
    TScalarPrefetch = record
    Minimum: Word;
    Maximum: Word;
    MaximumBlocks: Word;
    end;
    TBlockPrefetch = record
    Minimum: Word;
    Maximum: Word;
    end;
    DISK_CACHE_RETENTION_PRIORITY = (EqualPriority, KeepPrefetchedData, KeepReadData);
    TDiskCacheRetentionPriority = DISK_CACHE_RETENTION_PRIORITY;
    _DISK_CACHE_INFORMATION = record
    ParametersSavable: Boolean;
    ReadCacheEnabled: Boolean;
    WriteCacheEnabled: Boolean;
    ReadRetentionPriority: DISK_CACHE_RETENTION_PRIORITY;
    WriteRetentionPriority: DISK_CACHE_RETENTION_PRIORITY;
    DisablePrefetchTransferLength: Word;
    PrefetchScalar: Bool;
    ScalarPrefetch: TScalarPrefetch;
    BlockPrefetch: TBlockPrefetch;
    end;
    DISK_CACHE_INFORMATION = _DISK_CACHE_INFORMATION;
    TDiskCacheInformation = DISK_CACHE_INFORMATION;
    const
    IOCTL_DISK_GET_CACHE_INFORMATION = {text}0740D4;
    IOCTL_DISK_SET_CACHE_INFORMATION = {text}07C0D8;
    IOCTL_DISK_SET_CACHE_SETTING = {text}07c0e4;
    IOCTL_DISK_GET_LENGTH_INFO = {text}07405C;
    procedure TForm1.Button2Click(Sender: TObject);
    var
    h: THandle;
    info: TDiskCacheInformation;
    response: DWord;
    E: Integer;
    begin
    h := CreateFile(PChar('\.\D:'), GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_SYSTEM, 0);
    if h = INVALID_HANDLE_VALUE then begin
    ShowMessage('Can''t access disk.');
    Exit;
    end;
    info.WriteCacheEnabled := True;
    info.ReadCacheEnabled:= false;
    info.DisablePrefetchTransferLength := 1;
    if not DeviceIoControl(h, IOCTL_DISK_SET_CACHE_INFORMATION, nil, 0, @info, SizeOf(info), response, nil) then begin
    E:=GetLastError;
    Showmessage(Format('Error: %d', [E])); //ERROR 24
    Exit;
    end;
    CloseHandle(h);
    end;

https://forum.sources.ru/index.php?showtopic=420045&view=findpost&p=3840441


Метки:  
Нравится

Сортировка по имеющимся данным
Четверг, 15 Октября 2020 г. 23:42 + в цитатник
Nonamers: есть данные, а именно строки с ценами товаров. В некоторых строках цены нет. Как отсортировать по возрастанию сперва по имеющимся ценам, а в конце уже вывести с null?
nameprice
товар 14900
товар 21900
товар 3null
товар 4null
товар 53500


p.s. mysql 8

https://forum.sources.ru/index.php?showtopic=420043&view=findpost&p=3840428


Метки:  
Нравится

Что мы только что посмотрели
Четверг, 15 Октября 2020 г. 20:31 + в цитатник
ya2500:
Цитата applegame @
Но я в свое время отсмотрел все доступные на то время сезоны, хз почему. Видимо потому что


Я поверю, что так можно посмотреть отстойную полнометражку. Но, блин, никто не смотрит больше двух сезонов только потому, что они очень плохие)) и, да - Сотня уже насчитывает семь сезонов и последний вышел в этом году, так что, кто знает - может снимут ещё какое-то продолжение. При том, что многие сериалы заканчивались на меньшем кол-ве сезонов из-за низких рейтингов. Так что, не ты один на него залип))

Но, да - сериал богат фейспалмовыми моментами, есть такое.

https://forum.sources.ru/index.php?showtopic=342368&view=findpost&p=3840424


Метки:  
Нравится

Что мы только что посмотрели
Четверг, 15 Октября 2020 г. 20:31 + в цитатник
ya2500:
Цитата applegame @
Но я в свое время отсмотрел все доступные на то время сезоны, хз почему. Видимо потому что


Я поверю, что так можно посмотреть отстойную полнометражку. Но, блин, никто не смотрит больше двух сезонов только потому, что они очень плохие)) и, да - Сотня уже насчитывает семь сезонов и последний вышел в этом году, так что, кто знает - может снимут ещё какое-то продолжение. При том, что многие сериалы заканчивались на меньшем кол-ве сезонов из-за низких рейтингов. Так что, не ты один на него залип))

Но, да - сериал богат фейспалмовыми моментами, есть такое.

https://forum.sources.ru/index.php?showtopic=342368&view=findpost&p=3840424


Метки:  
Нравится

Что мы только что посмотрели
Четверг, 15 Октября 2020 г. 20:31 + в цитатник
ya2500:
Цитата applegame @
Но я в свое время отсмотрел все доступные на то время сезоны, хз почему. Видимо потому что


Я поверю, что так можно посмотреть отстойную полнометражку. Но, блин, никто не смотрит больше двух сезонов только потому, что они очень плохие)) и, да - Сотня уже насчитывает семь сезонов и последний вышел в этом году, так что, кто знает - может снимут ещё какое-то продолжение. При том, что многие сериалы заканчивались на меньшем кол-ве сезонов из-за низких рейтингов. Так что, не ты один на него залип))

Но, да - сериал богат фейспалмовыми моментами, есть такое.

https://forum.sources.ru/index.php?showtopic=342368&view=findpost&p=3840424


Метки:  
Нравится

Что мы только что посмотрели
Четверг, 15 Октября 2020 г. 20:31 + в цитатник
ya2500:
Цитата applegame @
Но я в свое время отсмотрел все доступные на то время сезоны, хз почему. Видимо потому что


Я поверю, что так можно посмотреть отстойную полнометражку. Но, блин, никто не смотрит больше двух сезонов только потому, что они очень плохие)) и, да - Сотня уже насчитывает семь сезонов и последний вышел в этом году, так что, кто знает - может снимут ещё какое-то продолжение. При том, что многие сериалы заканчивались на меньшем кол-ве сезонов из-за низких рейтингов. Так что, не ты один на него залип))

Но, да - сериал богат фейспалмовыми моментами, есть такое.

https://forum.sources.ru/index.php?showtopic=342368&view=findpost&p=3840424


Метки:  

Поиск сообщений в rss_forum_sources_ru
Страницы: 2628 ... 2444 2443 [2442] 2441 2440 ..
.. 1 Календарь

О проекте