Автор Тема: [RegExp] Выборка из текста  (Прочитано 12951 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн frz [?]

  • Новичок
  • *
  • Сообщений: 9

  • Автор темы
  • Репутация: 0
  • Пол: Мужской
  • [FRZ]
    • Награды
Re: [RegExp] Выборка из текста
« Ответ #15, Отправлен: Январь 18, 2010, 12:52:03 »
Привет!
Получилось сделать вот так:

Код: AutoIt [Выделить]
Func make_scr()
    FileDelete('name.txt')
    $fnu = GUICtrlRead($name_au) ;; Название трека
    $fnu1 = FileWrite('name.txt', $fnu)
    $fnu2 = FileRead('name.txt',9)
    $link_au = GUICtrlRead($link_txt)
    InetGet($link_au,"audio.ls")
    $fileOld = "audio.ls"
    $fileNew = "2.txt"
    $sLeft = $fnu & '</span> <a href="javascript: postAudioOnWall'
    $sNext = '"> (отправить)'
    $n = 0
    FileOpen($fileOld, 0)
    FileOpen($fileNew, 9)
    $CountLines = _FileCountLines($fileOld)
For $i = 1 To $CountLines
    $sTest = FileReadLine($fileOld, $i)
    $pos1 = StringInStr($sTest, $sLeft)
If $pos1 > 0 Then
    $n += 1
    $lens = StringLen($fnu2)
    ;~ MsgBox(0, "String length is:", $lens)
    $href = StringTrimLeft($sTest, $pos1 +$lens +16) ;;Обрезаем название трека и </span> <a href="
    $pos2 = StringInStr($href, $sNext)
    $href = StringLeft($href, $pos2 -1)
    FileWrite($fileNew, $n & ". " & $href & @CRLF)
EndIf
Next
    GUICtrlSetData($jscr, $href)
    ;~ MsgBox(0,'Ссылка',$href)
    FileClose($fileOld)
    FileClose($fileNew)
EndFunc
 


Понимаю что сделано как-то "криво", но работает...

А как сделать проверку, если $fnu = "" (пустое) видать сообщение и остановить выполнение функции...?
"... зачем тяжело работать, если можно просто спросить?" Кевин Митник "Искусство обмана"

Русское сообщество AutoIt

Re: [RegExp] Выборка из текста
« Ответ #15 Отправлен: Январь 18, 2010, 12:52:03 »

Оффлайн f4llen [?]

  • Осваивающий
  • **
  • Сообщений: 160
  • Репутация: 41
  • Олл фо ЛулзЪ
    • Награды
Re: [RegExp] Выборка из текста
« Ответ #16, Отправлен: Январь 18, 2010, 13:09:49 »
Код: AutoIt [Выделить]
Func make_scr()
    FileDelete('name.txt')
    $fnu = GUICtrlRead($name_au) ;; Название трека
    If $fnu <> "" Then
        $fnu1 = FileWrite('name.txt', $fnu)
        $fnu2 = FileRead('name.txt',9)
        $link_au = GUICtrlRead($link_txt)
        InetGet($link_au,"audio.ls")
        $fileOld = "audio.ls"
        $fileNew = "2.txt"
        $sLeft = $fnu & '</span> <a href="javascript: postAudioOnWall'
        $sNext = '"> (отправить)'
        $n = 0
        FileOpen($fileOld, 0)
        FileOpen($fileNew, 9)
        $CountLines = _FileCountLines($fileOld)
    For $i = 1 To $CountLines
        $sTest = FileReadLine($fileOld, $i)
        $pos1 = StringInStr($sTest, $sLeft)
    If $pos1 > 0 Then
        $n += 1
        $lens = StringLen($fnu2)
        ;~ MsgBox(0, "String length is:", $lens)
        $href = StringTrimLeft($sTest, $pos1 +$lens +16) ;;Обрезаем название трека и </span> <a href="
        $pos2 = StringInStr($href, $sNext)
        $href = StringLeft($href, $pos2 -1)
        FileWrite($fileNew, $n & ". " & $href & @CRLF)
    EndIf
    Next
        GUICtrlSetData($jscr, $href)
        ;~ MsgBox(0,'Ссылка',$href)
        FileClose($fileOld)
        FileClose($fileNew)
    Else
        MsgBox(64, "", "твоё сообщение об ошибке") ; Message
    EndIf
EndFunc
 

Leet Chat - программа для общения в локальной сети

Не оказываю тех. поддержку через форум - для этого есть ЛСД и Асекью

Оффлайн CreatoR [?]

  • Администратор
  • *
  • Сообщений: 8082
  • Репутация: 2314
  • Пол: Мужской
  • AutoIt is simple, subtle, elegant
    • CreatoR's Lab
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: [RegExp] Выборка из текста
« Ответ #17, Отправлен: Январь 18, 2010, 13:16:39 »
frz  [?]
Цитировать
сделано как-то "криво", но работает
Не только криво, а ещё и неправильно, FileOpen (не)используется не по назначению.


Правила, Поиск, Супер тема


AutoIt is simple, subtle, elegant.


«Не оказываю тех. поддержку через ПМ/ICQ, и по электронной почте - для этого есть форум. (C)»
«Законы Мэрфи неоспоримы!»


Мои работы

Русское сообщество AutoIt

Re: [RegExp] Выборка из текста
« Ответ #17 Отправлен: Январь 18, 2010, 13:16:39 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
2 Ответов
2607 Просмотров
Последний ответ Август 05, 2011, 11:45:50
от gregaz
3 Ответов
6890 Просмотров
Последний ответ Март 25, 2012, 01:22:03
от asdf8
14 Ответов
7183 Просмотров
Последний ответ Июль 03, 2012, 00:48:36
от Garrett
11 Ответов
5715 Просмотров
Последний ответ Апрель 29, 2015, 22:38:30
от Tapok
10 Ответов
3735 Просмотров
Последний ответ Февраль 28, 2016, 14:27:19
от krekerok
2 Ответов
2632 Просмотров
Последний ответ Март 28, 2016, 15:31:58
от Alofa
5 Ответов
3391 Просмотров
Последний ответ Май 04, 2016, 10:07:25
от F9
2 Ответов
2592 Просмотров
Последний ответ Июнь 09, 2016, 14:14:59
от Dk
5 Ответов
3705 Просмотров
Последний ответ Июнь 15, 2016, 11:28:34
от alex33
4 Ответов
1584 Просмотров
Последний ответ Декабрь 05, 2016, 00:21:09
от Alofa