#Aufrufe:
# netze <- readLines("Netzwerke_FINAL_mit_NK_CodesL.txt")
# prop <- Pcodes(netze)
# xmlpruef <- XmlGpBi(netze,kondi=c("person","+"),ntreff=1)	
# matrix <- PotenzA(netze,prop,xmlpruef)

#####

Pcodes <- function(strv, rxpat=c("\\["), kondi=c("person","+"),ntreff=1) #,"sex=w","+"),ntreff=2) #sex=m
{
 # Gesamtmenge der Propositionen der unterschiedlichen Potenzmengen  als String erzeugen
 # (C) LG nach Anregungen von Hartmut Oldenbürger
 # Verwendung von "ContAna.R" von Hartmut Oldenbürger
 # Version 0.01, zuerst 17.10.2004 Tübingen, zuletzt 21.10.04

 # Format: "[xyz],[abc],..." für Zeilen mit Codes
 # strv = Stringvektor, XML, zeilenweise Propositionen

# source("ContAna.R")						# Einbinden von H. Oldenbürger

 xmlpruef <- XmlGpBi(strv,kondi,ntreff)				# XML Blöcke identifizieren
 xmlstrv <- strv[VBl2Vek(xmlpruef$bla,xmlpruef$ble)]		# Text aus XML Blöcken extrahieren
 Pcodes <- as.character(rownames(HitList(xmlstrv, rxpat)))	# nur 1. Spalte mit Propositionen -> ist es dann nur noch ein String ???
 return(Pcodes)
}