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
&
Ïà¹ØÎĵµ£º
µ÷Ó÷½·¨ºÜ¼òµ¥£¬ÔÚ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 ......
'*************************************************************************
''----------------------------------------------------------------------
'**ϵͳÃû³Æ£º×ÓÀ໯ÖØ»æ·ÂQQ2009½¥±ä°´Å¥
'**Ä£¿éÃèÊö£º
'**Ä£ ¿é Ãû£ºForm1
'**´´ ½¨ ÈË£ºgvu
'**×÷ÕßÍøÕ¾£ºhttp://hi.baidu.com/googlevipuser
'**E-Mai ......
Ö²Îï´óÕ½½©Ê¬Õâ¸öСÓÎÏ·×öµÄ»¹Õæ²»´í£¬ÎÒ¿´µ½Á˼¸¸ö°æ±¾µÄÖ²Îï´óÕ½½©Ê¬ÐÞ¸ÄÆ÷£¬ÈçC++°æ£¬C#°æ£¬ËùÒԾ͸ÄдÁËÒ»¸öVB°æ±¾µÄ£¬ÒÔÏÂÊÇÔ´Âë
'½çÃæÖÐÓÐÁ½¸ö°´Å¥£¬·Ö±ðÊÇcmdSunUnlimited£¨captionΪÆôÓÃÑô¹âÎÞÏÞ£©£¬cmdMoneyUnlimited£¨captionΪÆôÓýðÇ®ÎÞÏÞ£©£¬²¢ÇÒÐèÒª·ÅÁ½¸öTimer¿Ø¼þ£¬Ãû³ÆΪĬÈÏÖµtimer1ºÍtimer2
'»ùµØÖ·Ö± ......
½ñÌìÓñà³ÌÓïÑÔVisual Basic£¨VB£©Ð´³ö×Ô¼ºµÄ¼Çʱ¾£¡¼ÇµÃ×Ô´ÓÉϴεÄÒ»¸öVB´òÔì¼òµ¥¼ÆËãÆ÷ºó¾ÍÔÙҲûÓÐдһЩС³ÌÐòÁË£¡½ñÌìÄØ£¬Ð´Ò»¸ö¼òµ¥µÄ¼Çʱ¾³ÌÐò°É£¡
¹¤¾ß£ºÒ»Ì¨¼ÆËã»ú£¨µçÄÔ£©¡££¨ÅäÖò»×öʲôҪÇó£¬ÏÖÔڵĻúÆ÷Ó¦¸ÃûÓÐÅäÖúܵ͵İɣ¡Ö»ÒªÄÜÔËÐÐVisual Basic 6.0¾ÍÐУ¡£©
&nbs ......
Ãû³Æ ÀàÐÍ ËµÃ÷
abort º¯Êý ÒýÆð·ÅÆúµÄÒâÍâ´¦Àí
abs º¯Êý ¾ø¶ÔÖµº¯Êý
addexitproc º¯Êý ½«Ò»¹ý³ÌÌí¼Óµ½ÔËÐÐʱ¿âµÄ½áÊø¹ý³Ì±íÖÐ
addr º¯Êý ·µ»ØÖ¸¶¨¶ÔÏóµÄµØÖ·
adjustlinebreaks º¯Êý ½«¸ø¶¨×Ö·û´®µÄÐзָô·ûµ÷ÕûΪcr/lfÐòÁÐ
align ÊôÐÔ Ê¹¿Ø¼þλÓÚ´°¿Úij²¿·Ö
alignment ÊôÐÔ ¿Ø¼þ±êÇ©µÄÎÄ×ÖλÖÃ
allocmem º ......