字幕时间修改软件

原创 2006年05月18日 23:17:00

VERSION 5.00
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   5715
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9015
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   5715
   ScaleWidth      =   9015
   StartUpPosition =   3  '窗口缺省
   Begin VB.ListBox List3
      Height          =   3660
      Left            =   4080
      MultiSelect     =   2  'Extended
      TabIndex        =   7
      Top             =   2040
      Width           =   4935
   End
   Begin VB.ListBox List2
      Height          =   3660
      Left            =   960
      MultiSelect     =   2  'Extended
      TabIndex        =   6
      Top             =   2040
      Width           =   3135
   End
   Begin VB.ListBox List1
      Height          =   3660
      Left            =   0
      MultiSelect     =   2  'Extended
      TabIndex        =   5
      Top             =   2040
      Width           =   975
   End
   Begin VB.TextBox Text2
      Height          =   375
      Left            =   1080
      TabIndex        =   3
      Text            =   "20"
      Top             =   720
      Width           =   1335
   End
   Begin VB.TextBox Text1
      Height          =   375
      Left            =   1080
      TabIndex        =   1
      Text            =   "20"
      Top             =   120
      Width           =   1335
   End
   Begin VB.CommandButton Command1
      Caption         =   "修改"
      Height          =   495
      Left            =   2760
      TabIndex        =   0
      Top             =   240
      Width           =   1095
   End
   Begin VB.Label Label2
      Caption         =   "滞后:"
      Height          =   375
      Left            =   240
      TabIndex        =   4
      Top             =   720
      Width           =   615
   End
   Begin VB.Label Label1
      Caption         =   "提前:"
      Height          =   375
      Left            =   240
      TabIndex        =   2
      Top             =   120
      Width           =   615
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim nextZiMu As Integer
Dim lateorfast As Boolean
Dim readNull As Boolean
Dim nextModify As Boolean
Private Sub Command1_Click()
  While (Not EOF(1))
        Line Input #1, oneLine
        If Trim(oneLine) Like "??:??:??,??? --> ??:??:??,???" Then
           List2.AddItem oneLine
           If nextModify Then
              Oneline1 = oneLine
              oneLine = Modify_Time(oneLine)
           End If
        End If
        If readNull And some_line(oneLine) Then
           nextModify = True
          Else
           nextModify = False
        End If
        If Len(oneLine) = 0 Then
           readNull = True
          Else
           readNull = False
        End If
        tempStr = tempStr + oneLine + vbCrLf
    Wend
    Print #2, tempStr
  Close #1
  Close #2
End Sub

Private Sub Form_Load()
   lateorfast = True
   readNull = False
   nextModify = False
   nextZiMu = 1
   Dim oneLine As String
   Dim tempStr As String
   Open "g:/2.srt" For Output As #2
   Open "g:/1.srt" For Input As #1
End Sub
Private Function some_line(ByVal numStr As String)
   If Trim(numStr) Like "[1-9][ 0-9][ 0-9]" Then
      List1.AddItem numStr
      If CInt(Trim(numStr)) = 2 Then
         some_line = True
         Exit Function
      End If
   End If
   someline = False
End Function
Private Function Modify_Time(ByVal oneLine As String)
  Dim tempA
  Dim i As Integer
  Dim rStr As String
  tempA = Split(oneLine, "-->")
  For i = 0 To 1
    If i = 0 Then
      rStr = modify_time1(Trim(tempA(i)))
     Else
      rStr = rStr + " --> " + modify_time1(Trim(tempA(i)))
    End If
  Next i
  Modify_Time = rStr
End Function
Private Function modify_time1(ByVal tempA As String)
  Dim i As Integer
  Dim tempB
  Dim rest As String
  Dim timeM As Integer
  Dim iTempb0 As Integer
  Dim iTempb1 As Integer
  Dim iTempb2 As Integer
  rest = Right(tempA, 4)
  tempA = Left(tempA, Len(tempA) - 4)
  tempB = Split(tempA, ":")
  iTempb0 = CInt(tempB(0))
  iTempb1 = CInt(tempB(1))
  iTempb2 = CInt(tempB(2))
  If lateorfast Then '提前
     timeM = CInt(Text1.Text)
     iTempb2 = iTempb2 + timeM
     If iTempb2 >= 60 Then
        iTempb2 = iTempb2 - 60
        iTempb1 = iTempb1 + 1
        If iTempb1 = 60 Then
           iTempb1 = iTempb1 - 60
           iTempb0 = iTempb0 + 1
        End If
    End If
    Else
     timeM = CInt(Text2.Text)
  End If
  tempB(0) = CStr(iTempb0)
  If Len(tempB(0)) = 1 Then
     tempB(0) = "0" + tempB(0)
  End If
  tempB(1) = CStr(iTempb1)
  If Len(tempB(1)) = 1 Then
     tempB(1) = "0" + tempB(1)
  End If
  tempB(2) = CStr(iTempb2)
  If Len(tempB(2)) = 1 Then
     tempB(2) = "0" + tempB(2)
  End If
  modify_time1 = tempB(0) + ":" + tempB(1) + ":" + tempB(2) + rest
End Function

Private Sub Form_Unload(Cancel As Integer)
  
End Sub

Private Sub Label2_Click()

End Sub

Time_machine-字幕制作与调整软件

  • 2009年11月19日 17:40
  • 1.3MB
  • 下载

葬心 subtool 20111016 字幕文件名修改工具

  • 2011年10月15日 18:54
  • 345KB
  • 下载

字幕自动匹配和修改工具

一个使用python实现的关于字幕自动匹配下载和字幕修改的工具 输入文件路径就可以自动下载出来对应匹配的字幕 解析中文英文混杂的字幕,将英文或者中文单独提取出来 Subtitle Util conta...
  • wangjiawei0227
  • wangjiawei0227
  • 2017年06月07日 21:31
  • 482

批量修改字幕文件中的时间,c语言实现

如果字幕和视频不匹配,那么字幕文件中的所有时间都需要修改。如果手动修改,工作量繁重并且枯燥。用c语言的读文件和写文件函数,读取字幕中每处的时间,加上时间差值,将修正后的时间再写回原位,则成功修改该处的...
  • CGGUANG
  • CGGUANG
  • 2016年07月17日 03:18
  • 1966

自动修改字体大小的TextView

  • 2015年11月09日 18:47
  • 3.49MB
  • 下载

字幕制作之时间轴制作(1) - 字幕的无中生有

关于时间轴 准备 具体步骤关于时间轴时间轴决定了字幕的出现和结束时间。目前来讲,字幕时间轴的制作主要分为两大块,第一块是对时间轴进行调整,第二块是新建时间轴。因为电视剧基本都有对应的cc字幕,对于这种...
  • line_clappe
  • line_clappe
  • 2015年11月05日 21:53
  • 1934

视频编辑软件中滚动字幕如何能停下来

我们在看电视电影等等影片时,总会看到结尾的字幕都是从下往上滚动,有的滚动到中间会停留一段时间,有的则是直接滚上去消失不见。那么在EDIUS中,如何做出滚动字幕停下来再滚走的效果呢?下面,小编给大家讲讲...
  • shipinbianji
  • shipinbianji
  • 2016年09月20日 10:59
  • 992

KMP的字幕用法之調時同步及保存

   有一個老外的大片,字幕下了N個,愣是沒一個完全合拍的。最靠譜的都差四秒鐘,即:在播放時6:23由演員講出的台詞,在字幕文件中被定義成了要到6:27才出現。如果不加任何改變的看原版字幕,就意味著文...
  • mrtorney
  • mrtorney
  • 2007年04月02日 11:46
  • 4935

SRT字幕的颜色以及一些特效的设置

SRT字幕文件打开、编辑的简易方法:       鼠标右键点击SRT字幕文件→打开方式→记事本。想给片头或片尾加点特别的效果吗?那就自己试试吧。 SRT格式字幕介绍:srt字幕数据以文本格式呈现,文...
  • lishirong
  • lishirong
  • 2014年12月02日 09:43
  • 18226

MySQL中日期类型数据的使用:如何让字段保存记录的创建时间和最后修改时间

在SQLyog软件界面下,通过一个实例,演示如何让字段保存记录的创建时间和最后修改时间...
  • zhf_2016cs
  • zhf_2016cs
  • 2016年08月20日 16:51
  • 5013
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:字幕时间修改软件
举报原因:
原因补充:

(最多只允许输入30个字)