ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð±Ð =µ¥¸¹ »P Tab ªº°ÝÃD(­«·sµo°Ý)

½Ð±Ð =µ¥¸¹ »P Tab ªº°ÝÃD(­«·sµo°Ý)

¦U¦ìª©¤Í¤j®a¦n:                 
        §Ú¥ý«e´£°Ý¤F¤@¦¸¬Û¦P°ÝÃD,¥i¬O§Ñ¤F´£¨ÑÀÉ®×,©Ò¥H±o¨ìªºµª®×»P§Ú­ì¥ýªº¹w´Á
        ¦³¥X¤J,³o¤@¦¸µo°Ý§Ú´£¨Ñ¤FÀÉ®×,§Æ±æ¦³ª©¤ÍÄ@·N´£¨Ñ§Ú¦p¦ó¸Ñ¨M°ÝÃD.

        (1) ªþ¥óªº Spice_Netlist ­¶­±¤¤,A39 ªº¤º®e¬O =+A4B,³o­Óµ¥¸¹»P¥[¸¹¾É­P
            §Úªº VBAµ{¦¡µLªk°õ¦æ,VBA µ{¦¡»¡ "«¬ºA¤£²Å¦X",¥²¶·¤â°Ê±N A39 ¨ì A58
            ªºµ¥¸¹»P¥[¸¹³£®³±¼,¤~¥i¥H¶¶§Q°õ¦æ,½Ð°Ý,§Úªºµ{¦¡À³¸Ó¥[¼g¨Ç¤°»ò¤~
            ¥i¥HÂo±¼³o¨Çµ¥¸¹¥[¸¹....
            PS. §Úªºµ{¦¡¦bÀ˵ø¥¨¶°´N¬Ý±o¨ì¤F
            
        (2) ¦pªG¤w¸g¥i¥H¶¶§Q°õ¦æ,µ²ªG·|¥X²{¦b Verilog_Netlist ³o­Ó­¶­±,
            §Ú³q±`·|±N¦¹¤@µ²ªG½Æ»s¨ì Editer, ¥i¬O½Æ»s¹L¨Ó¤§«á§Úµoı¨C­Ó¦r¦ê«á­±
            ³£¬O TAB,¦Ó«DªÅ®æ,½Ð°Ý¬O§_¦³¿ìªkÅý³o¨Ç TAB Åܦ¨ªÅ®æ.
            ½d¨Ò¦p¤U:  
     MTP_LOGIC        I_MTP_LOGIC(        A1, A1B,  A2,        A2B,        A3,        A3B,                                                                                       
       A4B,        A4I,        A5B,        A5I,        A6B,        A6I,        A7B,        A7BC,        A7I,        A7IC,        A8B,        A8BC,               
       A10B,        A10BC,        A10I,        A10IC,        A11B,        A11BC,        A11I,        A11IC,        BS0,        BS1,        BS2,                                               
       CEN_ERMDB,        CLKLV0,        CLKLV1,        CLKLV2,        CLKLV3,        EN5V,        EN5V5,        EN6V,        EN6V5,                                                       
       EN9V5,        ENDP0,        ENDP1,        ENDP2,        ENDP3,        ENM6V,        ENM6V5,        ENM7V,        ENM7V5,       
      
       ÁÂÁ¦U¦ìª©¤Íªº¦^µª

Spice2Verilog.zip (27.49 KB)

Spice2Verilog_Cindy.zip (26.19 KB)

Spice2Verilog_Cindy.zip (28.59 KB)

Spice2Verilog_Cindy.zip (28.59 KB)

Spice2Verilog_Cindy.zip (28.59 KB)

¤£¦n·N«ä,¤W¶ÇÀɮפ¤,¥u¦³³Ì¤U­±¤@­Ó¬O§Ú­n¤W¶Çªº(28.59K),
¨ä¥L¦PÀɦWªº³£¬O¿ùªº,½Ð¨£½Ì

TOP

¦^´_ 1# verify9k

  (1) ªþ¥óªº Spice_Netlist ­¶­±¤¤,A39 ªº¤º®e¬O =+A4B,³o­Óµ¥¸¹»P¥[¸¹¾É­P
            §Úªº VBAµ{¦¡µLªk°õ¦æ,VBA µ{¦¡»¡ "«¬ºA¤£²Å¦X",¥²¶·¤â°Ê±N A39 ¨ì A58
             ªºµ¥¸¹»P¥[¸¹³£®³±¼,¤~¥i¥H¶¶§Q°õ¦æ,½Ð°Ý,§Úªºµ{¦¡À³¸Ó¥[¼g¨Ç¤°»ò¤~
            ¥i¥HÂo±¼³o¨Çµ¥¸¹¥[¸¹....
             PS. §Úªºµ{¦¡¦bÀ˵ø¥¨¶°´N¬Ý±o¨ì¤F

>>§ï¥ÎFind¦p¤U¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
'  For row_b = 1 To 1000 Step 1                   '§ä¥X .subckt »P *.PININFO ¬O­þ¤@¦C
'    If Cells(row_b, 1) = ".subckt" Then          ' ¥Î¨Ó¼Ð©w "¾ã­ÓMacro" ªº¥X Pin °Ï°ì
'      Begin_A = row_b
'    ElseIf Cells(row_b, 1) = "*.PININFO" Then    '¥X Pin ¶}©l»Pµ²§ô¦C¼Æ¤À§O¦s¦b
'      End_A = row_b - 1                          ' Begin_A »P End_A ÅܼÆ
'      Exit For
'    End If
'  Next

With Range("A1:A1000")
    Set Rng = .Find(".subckt", , , xlWhole)
    If Not Rng Is Nothing Then Begin_A = Rng.Row
End With
With Range("A1:A1000")
    Set Rng = .Find("*.PININFO", , , xlWhole)
    If Not Rng Is Nothing Then End_A = Rng.Row - 1
End With

TOP

¦^´_ 1# verify9k


(2) ¦pªG¤w¸g¥i¥H¶¶§Q°õ¦æ,µ²ªG·|¥X²{¦b Verilog_Netlist ³o­Ó­¶­±,
             §Ú³q±`·|±N¦¹¤@µ²ªG½Æ»s¨ì Editer, ¥i¬O½Æ»s¹L¨Ó¤§«á§Úµoı¨C­Ó¦r¦ê«á­±
            ³£¬O TAB,¦Ó«DªÅ®æ,½Ð°Ý¬O§_¦³¿ìªkÅý³o¨Ç TAB Åܦ¨ªÅ®æ.
>> ¤£¦n·N«ä¡A¬Ý¤£À´»Ý¨D¡A¥B¬Ý§Aªºµ{¦¡½X¤]¤£©ö¤F¸Ñ¡A¥i§_ªþÀÉ»¡©ú¤@¤U³W«h±ø¥ó¥B±Nµ²ªG§e²{¦bexcel¡AÁÂÁÂ

TOP

¦^´_ 4# samwang

¥ýÁÂÁ±z¹ï©ó§Ú²Ä¤@­Ó°ÝÃDªºÀ°¦£,§Ú»¡©ú¤@¤U§Úªº²Ä¤G­Ó°ÝÃD,
¥H§Ú¶K¤Wªºµ²ªG¸ê®Æ³¡¤À¬O   A4B, A4I, A5B,......
                                                   A10B, A10BC, ......
                                                   CEN_ERMDB, CLKLV0, .....
A4B,  ¬O¦b¤@­ÓÀx¦s®æ, A4I, ¬O¦b¤U¤@­ÓÀx¦s®æ, A5B,  ¤S¬O¦b¤U¤U¤@­ÓÀx¦s®æ
A10B,  ¬O¦b¤@­ÓÀx¦s®æ, A10BC, ¬O¦b¤U¤@­ÓÀx¦s®æ,

·í§Ú±N³o¨Ç¸ê®Æ¥þ¿ï¨Ã½Æ»s¨ì wordpad ¤§«á,  A4B, »P A4I, ¤§¶¡¬O TAB,¦Ó«DªÅ®æ,
·íµM,  A10B, ¹ï A10BC, ¤§¶¡¤]¬OTAB,¦Ó«DªÅ®æ,
½Ð°Ý,¦³¨S¦³¿ìªkÅý§Ú copy ¦Ü wordpad or UltraEditer ®É¬OªÅ®æ ???

ÁÂÁ±z

TOP

¦^´_ 5# verify9k

  ¤£¦n·N«ä¡A«á¾ÇÁÙ¬O¤£¤Ó¯à²z¸Ñ¡A¥i§_ªþ¤W¦³¸ÑµªªºÀɮתº©M»¡©ú³W«h¡A·PÁÂ

TOP

¥»©«³Ì«á¥Ñ quickfixer ©ó 2022-6-15 20:52 ½s¿è

³B²za column ,  A39 ¨ì A58 = + ªº°ÝÃD

Sub test()

    'r = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 39 To 58  ' 1 to r
     
            Cells(i, 1).Value = Replace(Replace(Cells(i, 1).FormulaLocal, "+", ""), "=", "")
     Next i
   
End Sub

TOP

¥»©«³Ì«á¥Ñ quickfixer ©ó 2022-6-15 21:15 ½s¿è

¦^´_ 7# quickfixer

¥N´Àctrl+c,¥ý°õ¦ætest2(),¥´¶}§AªºEditer,¶K¤W
§Aªºµ{¦¡½X§Ú¨S¬Ý
¦Û¤v§â#7¡B#8ªºµ{¦¡½X¦X¨Ö¨ì#1
¥N´Àctrl+c½d¨Ò,¥u¦³³B²za39~r58,½d³ò¦Û¤v§ï


Sub test2()

    Dim clipboard As Object, s As String
    Set clipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
   
    For i = 39 To 58
   
        For j = 1 To 18
            s = s & Cells(i, j) & IIf(j = 18, vbNewLine, " ")
        Next j
    Next i
        
    clipboard.SetText s
    clipboard.PutInClipboard

End Sub

TOP

        ÀR«ä¦Û¦b : ±o²z­nÄǤH¡A²zª½­n®ð©M¡C
ªð¦^¦Cªí ¤W¤@¥DÃD