IntroductionNumberingSequencesStructuresModellingMacrosPublicationsLinks
ColoringSequence StatisticsRenumberingAccessibilityTorsion AnglesStructural VariabilityHydrogen BondsDownloads

Macro PDB_reLlb

xxx.

Usage:

  • xxx
  • xxx

Cauton:

xxx

Sub PDB_reLbl()

'relabels a series of PDB files according to the information given in the Chain, Label and Insert worksheets

    For i = 1 To 250 Step 1
        If IsEmpty(Sheets("Files").Cells(i, 1)) Then Exit For
            FName = Sheets("Files").Cells(i, 1)

        k = 2
        For j = 1 To 32768                                              'all lines
             If (IsEmpty(Sheets(FName).Cells(j, 1))) Then Exit For      'end of pdb file
             
                If Sheets(FName).Cells(j, 4) Like "N" Then
YYY:
                    k = k + 1
                    If ((Sheets("Seq").Cells(k, i + 3) Like ".") And (k < 32768)) Then GoTo YYY
                    End If
                        Sheets(FName).Cells(j, 8) = Sheets("Chain").Cells(k, i + 3)
                        Sheets(FName).Cells(j, 9) = Sheets("Label").Cells(k, i + 3)
                        Sheets(FName).Cells(j, 10) = Sheets("Insert").Cells(k, i + 3)
        Next j
    Next i

End Sub
AAAAA Homepage Zürich University Dept. of Biochemistry Plückthun Group Annemarie Honegger

Last Modified by A.Honegger Wednesday, January 26, 2005