Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VB±àд³ÌÐòʵÏÖSRTÊÓƵÍâ¹Ò×ÖÄ»

      ÔÚDVDRip¡¢MKVµÈ720P¸ßÇåÊÓƵÖУ¬srt¡¢ssa¡¢ass¡¢idx¡¢subµÈÍâ¹Ò×ÖÄ»·Ç³£Á÷ÐУ¬²ÉÓõÄÏÔʾ¼¼ÊõºÁ²»ÀýÍⶼÊÇVSFilter£¨ÔçÆÚ°æ±¾ÊÇVobSub£©ºÍAviSynthÍâ¹Ò×ÖÄ»²å¼þ¡£ÏÔʾµÄµãÕóºº×ַdz£Æ¯ÁÁ£¡ÏÖÔÚÁ÷ÐеĶàýÌå²¥·ÅÆ÷£¬ÈçKMPlayer¡¢±©·çÓ°ÒôµÈ¶¼²ÉÓÃÁËÉÏÊöDirectVobSub¼¼Êõ¡£ËäÈ»DirectVobSub¼¼Êõ¾ßÓпª·ÅÐÔÇ¿£¬Ö§³ÖÖÚ¶àÓïÑÔ±àдµÄ²¥·ÅÆ÷£¬µ«¾­³£ÓйҲ»ÉÏ×ÖÄ»µÄÎÊÌâ¡£ÓÚÊÇ£¬Ïëµ½ÓÃVBÀ´±àдÍâ¹Ò×ÖÄ»³ÌÐò¡£ÄÇVBÄÜ·ñʵÏÖÍâ¹Ò×ÖÄ»ÄØ£¿´ð°¸Êǿ϶¨µÄ£¡¶ÔÓÚidx¡¢subµÈͼÐÎ×ÖÄ»À´Ëµ£¬VBÎÞÄÜΪÁ¦£»µ«¶ÔÓÚÎı¾×ÖÄ»srt¡¢ssa¡¢ass£¬VB»¹ÊÇ¿ÉÒÔ½â¾öµÄ¡£Ëä²»ÄܺÍDirectVobSub¼¼ÊõÏà±È£¬µ«»ù±¾¹¦ÄÜ»¹ÊÇ¿ÉÒÔʵÏֵġ£Çë¿´ÏÂÃæVB±àдµÄsrt×ÖÄ»½âÎö´úÂ룺
'********************************************************************************
'* Ä£¿éÃû³Æ£ºSrttitle.bas
'* µ÷ÓÃsrt×ÖÄ»Îļþ³É¹¦ºó£ºSRTFileAnalysis·µ»Ø×ÖÄ»¸öÊý£¨Ã¿Ò»¸ösrt×ÖÄ»¿ÉÄÜÓжàÐÐÏÔʾÎı¾£©
'* µ÷ÓÃʧ°ÜºóSRTFileAnalysis·µ»ØÒ»¸ö³¤ÕûÐÍÊý0
'* ÌرðÉùÃ÷£º×ªÔØÇëÓÃIPµØÖ·£¬ÑϽûÔ­ÎÄתÔØ£¡
'* ×÷ÕߣºChenjl1031(¶«·½Ö®Öé) 
'********************************************************************************
Option Explicit
Public SRTtitle() As String 'srt×ÖÄ»Êý×é
'srt×ÖÄ»ÌáÈ¡
Public Function SRTFileAnalysis(ByVal SrtFileName As String) As Long
       Dim LineCount As Long, FileNumber As Long, TimeLenth As Long, TimeNumber As Long
       Dim Stitle As String, TimeLabel(1 To 2) As String, St As String, StC As String, sSrt() As String
       Dim GotTime As Boolean
       Dim sHour As Long, sMunite As Long, sSecond As Long, s1 As Long, s2 As Long, s3 As Long
      
       On Error Resume Next
      
       If Dir(SrtFileName) = "" Then SRTFileAnalysis = 0: Exit Function
       'ɨÃèsrt×ÖÄ»¸öÊý²¢¶¨Òå×ÖÄ»Êý×é
       FileNumber = FreeFile: LineCount = 1
&


Ïà¹ØÎĵµ£º

VB ϵͳÈȼüʵÏÖ£¨Ä£¿é£©

µ÷Ó÷½·¨ºÜ¼òµ¥£¬ÔÚFormÖÐÈçÏÂÊéд´úÂ룺
Private Sub Form_Load()
SetHotkey 1, "Ctrl,112", "Add" '°´ Ctrl+F1 ¼¤»îÖ¸¶¨³ÌÐò£¬F1µÄAsciiÂëΪ112
SetHotkey 2, 113, "Add" '°´ F2 ¼¤»îÖ¸¶¨³ÌÐò£¬F2µÄAsciiÂëΪ113
SetHotkey 3, "Ctrl+Alt,113", "Add" '°´ Ctrl+Alt+F2 ¼¤»îÖ¸¶¨³ÌÐò£¬F2µÄAsciiÂëΪ113
End Sub
Priva ......

¡¾VB½çÃæ¡¿×ÓÀ໯ÖØ»æ·ÂQQ2009½¥±ä°´Å¥(Ä£¿é)

'*************************************************************************
''----------------------------------------------------------------------
'**ϵͳÃû³Æ£º×ÓÀ໯ÖØ»æ·ÂQQ2009½¥±ä°´Å¥
'**Ä£¿éÃèÊö£º
'**Ä£ ¿é Ãû£ºForm1
'**´´ ½¨ ÈË£ºgvu
'**×÷ÕßÍøÕ¾£ºhttp://hi.baidu.com/googlevipuser
'**E-Mai ......

VB°æ Ö²Îï´óÕ½½©Ê¬ÐÞ¸ÄÆ÷

Ö²Îï´óÕ½½©Ê¬Õâ¸öСÓÎÏ·×öµÄ»¹Õæ²»´í£¬ÎÒ¿´µ½Á˼¸¸ö°æ±¾µÄÖ²Îï´óÕ½½©Ê¬ÐÞ¸ÄÆ÷£¬ÈçC++°æ£¬C#°æ£¬ËùÒԾ͸ÄдÁËÒ»¸öVB°æ±¾µÄ£¬ÒÔÏÂÊÇÔ´Âë
'½çÃæÖÐÓÐÁ½¸ö°´Å¥£¬·Ö±ðÊÇcmdSunUnlimited£¨captionΪÆôÓÃÑô¹âÎÞÏÞ£©£¬cmdMoneyUnlimited£¨captionΪÆôÓýðÇ®ÎÞÏÞ£©£¬²¢ÇÒÐèÒª·ÅÁ½¸öTimer¿Ø¼þ£¬Ãû³ÆΪĬÈÏÖµtimer1ºÍtimer2
'»ùµØÖ·Ö± ......

VBдµÃÒ»¸ö¼Çʱ¾

½ñÌìÓñà³ÌÓïÑÔVisual Basic£¨VB£©Ð´³ö×Ô¼ºµÄ¼Çʱ¾£¡¼ÇµÃ×Ô´ÓÉϴεÄÒ»¸öVB´òÔì¼òµ¥¼ÆËãÆ÷ºó¾ÍÔÙҲûÓÐдһЩС³ÌÐòÁË£¡½ñÌìÄØ£¬Ð´Ò»¸ö¼òµ¥µÄ¼Çʱ¾³ÌÐò°É£¡
       ¹¤¾ß£ºÒ»Ì¨¼ÆËã»ú£¨µçÄÔ£©¡££¨ÅäÖò»×öʲôҪÇó£¬ÏÖÔڵĻúÆ÷Ó¦¸ÃûÓÐÅäÖúܵ͵İɣ¡Ö»ÒªÄÜÔËÐÐVisual Basic 6.0¾ÍÐУ¡£©
  &nbs ......

VBº¯Êý¶¨Òå

Ãû³Æ ÀàÐÍ ËµÃ÷
abort º¯Êý ÒýÆð·ÅÆúµÄÒâÍâ´¦Àí
abs º¯Êý ¾ø¶ÔÖµº¯Êý
addexitproc º¯Êý ½«Ò»¹ý³ÌÌí¼Óµ½ÔËÐÐʱ¿âµÄ½áÊø¹ý³Ì±íÖÐ
addr º¯Êý ·µ»ØÖ¸¶¨¶ÔÏóµÄµØÖ·
adjustlinebreaks º¯Êý ½«¸ø¶¨×Ö·û´®µÄÐзָô·ûµ÷ÕûΪcr/lfÐòÁÐ
align ÊôÐÔ Ê¹¿Ø¼þλÓÚ´°¿Úij²¿·Ö
alignment ÊôÐÔ ¿Ø¼þ±êÇ©µÄÎÄ×ÖλÖÃ
allocmem º ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ