Macro PDB_reLlbxxx. Usage:
Cauton:
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 |
|
|||||||||||||||||
Last Modified by A.Honegger |